
1620 6ENERAL program library W I SAL Processor for Computer Accounting Case 2.0.058 



4 



A 



A 



\ 



A 



N~7 



4-k 



7 



A 



7 



AN 



z_ 
v 



z. 
v 



z_ 



z_ 

^" 
z. 

^ _ 

z_ 

v 



7 

A 

"7 



/l N 



Z_ 

V 



V 



7 



2d 



k A 



V N 



K A 



V \ 



7 



ZLA 



\-7 



^"7 



4 



A z. 
"7 V 



A z_ 

"7 V 



A z_ 
"7 ^ _ 



z_ 

\- 
z. 

V 

z. 

V 



7 
7 

7 

A 

"7 



Zl_N 



A Z. 
"7 V 



7 



A 



k 4 



4_N 



^"7 



V N 



7 ^ 



N"7 



V 



A ^. 
"7 V 



A. 



A Z_ 
"7 V 



A Z. 

7 v 



\ z_ 
7 v 



z. 

z_ 
v 



P 7 

A 

"7 
A 

"7 



k A 



V ^ 



7 



4 



zLK 



7 



V N 



7 



ZLK 



A. 



A Z_ 
■7 



7 



/l N 



A Z. 
7 V 



V 



7 



/l K 



A 



^7 



A 



A Z_ 
"7 V 



t 7 



A 



k 4 



TP 7 



N A 



A 



7 




^ Z 
7 ^ 



zLK 



7 



ZLk 



7 V 



A Z. 
7 V 



A Z_ 
-7 V 



Z. 

\- 
Z_ 

V. 
/I N 



7 



A 
"7 



A Z. 
"7 V 



N 

Z_ 

V 



V 

A 

"7 



A 



K A 



K A 



N A 



AA 



ZLK 



A 



A 



A Z. 



N 
Z 



7 
A 

"7 



zlk. 



N"7 



A Z_ 
"7 V 



A Z_ 
"7 ^ 



Z. 
Z. 



7 

A 

7 



A 
"7 



A 



N 4 



4 



^"7 



^ 4 



V 



A Z. 
V 



N"7 



A 

"7 



Z. 

^ _ 
A 



4= 



V 



A 



N 4 



\~7 



7 



h A 



V N 



4 



4 



fc. 4 



v 



7 



A Z. 

■7 V 



^ Z. 



N~t7 

N"7 



A 



A Z. 



A 
'7 



K ZL 



T7 

V7 



4-A 



N 4 



P 7 N 



Z] 



V 



A 



V \ 



7 



zi N 



4 



K 4 



A z. 
■7 V 



■7 ^s' 



4 



4-^ 



b. 4 



N~7 



4 



^-7 



7 



4 



A 



A 



z. 

V 



^-7 



A A 
A /l I _K A 



^T7 



A 
"7 



/l N 



Z. 



NT 



A 
"7 



ZLK 



A 
_ 7 



f3fO**AM *1M0t HO 



DISCLAIMER 



Although each program has been tested by its contributor, 

no warranty, express or implied, is made by the contributor 

or any User f s Group, as to the accuracy and functioning of 

the program and related program material, nor shall the fact 

of distribution constitute any such warranty, and no responsibility 

is assumed by the contributor or any User ! s Group, in connection 

therewith. 



COMMON USERS GROUP PROGRAM REVIEW AND EVALUATION 
(fill out in typewriter, ink or pencil) 

Program No. Dat e 

Program Name: 

1. Does the abstract adequately describe what the program is and what Yes No_ 

it does ? 

Comment . ___ 



Does the program do what the abstract says ? Yes No_ 

Comment ___ 

Is the description clear, understandable, and adequate? Yes No 

Comment ' 



4. Are the Operating Instructions understandable and in sufficient detail? Yes No_ 

C om m en t ■ 

Are the Sense Switch options adequately described (if applicable)? Yes No_ 

Are the mnemonic labels identified or sufficiently understandable? Ye s No 

Comment 



Does the source program compile satisfactorily (if applicable)? Yes No_ 

Comment 



6. Does the object program run satisfactorily? Yes No_ 

C om m ent 

7. Number of test cases ru n Are any restrictions as to data, 

size, range, etc. covered adequately in description? Yes No_ 

Comment 

fc. Does the Program meet the minimal standards of COMMON? Yes No_ 

Comment 

v;. Were all necessary parts of the program received? Yes No_ 

Comment 



0. Please list on the back any suggestions to improve the usefulness of the program. 
These will be passed onto the author for his consideration. 

Please return to: Your Name 

Company 

Mr. Richard L. Pratt . ■ 

Data Corporation Address 

7500 Old Xenia Pike 

Dayton, Ohio 45432 Users Group Code 

THIS REVIEW FORM IS PART OF THE COMMON ORGANIZATION'S PROGRAM REVIEW AND * 

EVALUATION PROCEDURE. NONME MBERS ARE CORDIALLY INVITED TO PARTICIPATE 
IN THIS EVALUATION. 
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WEAL Processor for Computer Accounting Case 



Craig MacKenna 



Direct Inquiries To: Richard McCoy 

University of Wisconsin 
Commerce Data Processing 
Center 

Madison, Wisconsin 53706 



Modifications or revisions to this program, as they occur, 
7 T 5L a £r nced ta the a PP r °P r iate Catalog of Programs 
for IBM Data Processing Systems. When such an announce- 
ment occurs, users should order a complete new program 
from the Program Information Department P r °y ram 



PROGRAM ABSTRACT 



TITLE - WISAL Processor for Computer Accounting Case 
SUBJECT CLASSIFICATION - Type IV, 1620 02 

DESCRIPTION/PURPOSE A processor for thP uttqat io . 
by. Mr. McCoy and Mr. Jack AndXson deSJwJS L - lang S age develo P e d 
ing Case - (John ffliev 1Q66? S?^t ? ed in " Com evLter Account- 
designed for educational usV ' TbK = X + an accounting language 
set Accounting cate the Stoi' M ?£%f ySte !? deals with a sin ^ P re " 
are included? 2 input c5nsis?s S stJd^? Com P an y> de <* s for which 
WISAL language, oSt^^'aSSc^l^^JSSSS ™ the 

METHOD N/A 

RESTRICTION/RANGE N/A 

SPECIFICATIONS 

20 K decimal digits or larger 
Requires card reader - punch 

1 1311 disk drive 

indirect addressing 

Software requirement 1620 Monitor I or II 
Prnhl Can utilize 1443 Printer, but not required 

STmSJ Processor written in 1620-1710 SPS II-D 
Sample program in WISAL language. 



TABLE OF CONTENTS 
(Textual material) 



Deck Labelling Sheet 3 

Program Uriteup 

Language Specification and Definition 4 

Error Messages - Student Directed £ 

Logging, Error Cut-Off 7 

Punched vs. Printed Output 8 

Timing . 8 

Program Organization and Processing 8 

Organization of the Project 10 

Pre-coding by Instructor 11 

Input and Output Formats 12,13 

Restrictions, Coding a New Problem 13 

Halts and Messages 

Error Messages and Halts - Operator Directed 14 

Error Messages and Halts - Unlikely 15 

Operating Instructions 

Loading the UISAL System to Disk 16 

Running oISAL programs 16 

Equipment Required, Assembler Used 16,17 

Specifications For Printer Panel Board 15 
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LIST OF SUPPORTING MATERIAL 



Listing o.f source problem, 24 

Listing of Processor 5q 

Cross Reference Listing of Processor 113 

Flow Charts of Processor 191 

Listing of sample program (deck 2) 233 

Diagram of 407 tflSAL control board 236 
Decks as specified in deck labelling sheet (Decks 3 and 4 optional) 



n 







DECK LABELLING SHEET 



Deck 1. Problem Object Deck "The Wholesale Paper Company. " 

5 Control Records have no sequencing. Subsequent cards 
sequenced in columns 76-80, 00001 to 00226. 

Deck 2. Processor Object Deck. 4 Monitor Control Records have 
no sequencing. Subsequent cards sequenced in cols. 76-80, 

00001 to 00284. 

Deck 3. Sample Program (correct solution) 

2 Control Records have no sequencing 
Subsequent cards sequenced in cols. 76-80, 
00001 to 00096. 

- Deck 4. Complete Sample Solution. 



OPTIONAL DECKS: 

Deck 1. Problem Source Deck (OPTIONAL MATERIAL) 
5 Control Records have no sequencing. 
Source cards sequenced in cols. 1-5, 
00010 to 08340. 

Deck 2. Processor Source Deck (OPTIONAL MATERIAL) 
4^. $ Control records have no sequencing 
Source cards sequenced in cols. 1-5, 
00010 to 14280. 



Optional material will be sent when specifically requested. 
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PROGRAM WRITE-UP 



NAME: WISAL Processor for Computer Accounting Case 

DATE: 6/12/66 

PROGRAMMER: Craig MacKenna 

University of Wisconsin-Milwaukee Computing Center 

3203 N. Downer Avenue 

Milwaukee. Wisconsin 53210 

414-228-4426 

Users Group Code 3285 



DESCRIPTION: The WISAL educational accounting language is des- 
cribed by Mr. R. W. McCoy and Mr. Jack Anderson in "Computer 
Accounting Case" (John Wiley, 1966). This book is primarily a 
student text to be used in accounting courses utilizing WISAL, 
Also available from the same authors and publisher is an In- 
structor's Manual (title unknown at the time of this writing), 
which presents the information necessary to the accounting in- 
structor for presentation and use of the WISAL language. Both 
these publications reference the problem included in this 1620 
system. The emphasis is this writeup will accordingly be on in- 
formation necessary to the computing installation at which the 
instructor has arranged for the running of the student programs. 



I. Language specification and definition 

The language which the processor is able to compile is as 
described in the student publication. The program is divided 
into a number of routines, each corresponding to a type of trans- 
action encountered in the accounting case. Each transaction in 
the case is then assigned to a particular routine for processing 
in a reference section. 

An attempt at a formal definition of WISAL in Backus notation 
follows : 
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<progren> :i~ <routino> f <prosraKXroutlne> 

<routine> ::= <la"o elXr out ine part> 

<label>. : := <aon-o?.a;il:X^J r ^olXsj , xabolXf53'Tribo3.> 

'<synbol> ::-- blarf: | <:ic:i-blank> 

<routine part> <f illerXsentenceXf iller> J 

<routirie partXsentenceXfiller> 

<fillcr> ::= empty i < string :niich contains ' no key word> 

<key word> ::= <verb> | <nl:gect> J <amour:t> 

<string> : :=Xcynbol> I <Fti i:i^Xsy;.ibcl> 

<senteace> : := <verbXf illerXobjectXfillerXaEount> 

<verb> i := D3BIT I CREDIT 

<ob'ject> : ;= <accou:it> \ (GUST) 

<anount> : := .< simple amount > | (<cosibiae>) 

<corabine> :: = <s:Laple a.-.iouat> | <conbineXoperatorXsir.iple ar:iount> 
<sirinle amount> = <rrj-ieiaonic>AI-2T I /^2P<amt.ac.> 
<amt. no.> ::- 1 I 2 I 3 

«aneaonic> : : = CAL;:: I DISC I VOUCH . 

<ae count > Cn"-ierieXnvunericXnuHericXnunerIc> 

<operator> ::= •;- I - . 

<non-blani:> : : - <:i;.t?.oric> I A I B I ... f 2 1*1 -i- I - I / I . 1 , ] . $ I 

HI) I 

<numeric> : : = C I 1 I 2 | . . . 1 k 

<siring i-rhich cnrrt&ins no key ■Torcl> I leave to the imagination 

of the reader, <strin:f> and <key word> having been defined. 

More restraints are put on the eyntar., of course-, the input being 

coluran-dependeht and the <accourit> oeing required to be one of those 

general ledger account numbers defined in the problem, to riane 

but two. 



The main purpose of the formal definition, however, was to 
illustrate the greater flexibility of the 1620 processor. The 
above is a definition of the language as is the student manual. 
The 1620 Processor will also compile under the following modifi- 
cations: 

<s imple amount> : : =<mnemonicXamf ill>AMT |AMT<amf illXamt . ' no . >| AMT 
<amf illXianemonic> 

<amfill> : :=empty|<string which contains no key> 
<key> : :=<key word>) <operator>|(|) 
<operator> : := -f] -| ELUSj MINUS 

<string which contains no key> is again left undefined. Thus, we 
may write for accounts: 



AMT OF THE DISCOUNT 
(VOUCHER AMT MINUS AMT #1) 

and so forth. This should be brought to the attention of the in- 
structor, as he nay find the extended language more natural to 
teach. 

II. Error Messages - Student Directed 

Messages to the student are as explained in the student text, 
with the following additions: 

0-2-8 ON CARD, REPLACED BY BLANK 

The student should not have to worry about this. It indicates 
a keypunching error creating a record mark. 

PREVIOUS ROUTINE NOT COMPLETED 

The last sentence, on the card preceding that for which this 
message was produced (which has a label in columns 8-11), was not 
correctly ended. 

LABEL DUPLICATES PREVIOUS LABEL 

The label In columns 8.-11 of the card for which this message 
was produced is identical to a previous label. 



o 



TRANSACTION CODED TWICE, NO nnn 

Either A) Two XREP cards (see INPUT) for the same trans- 
action are present, or B) the student has attempted to code a 
transaction which the instructor has pre-coded/ 

The instructor should be advised of the existence and 
meaning of these additional student-directed messages. 

III. Logging, Error Cut-off 

In a previous presentation by the author (of the program) , 
much was made of the logging capabilities of the WISAL system, 
providing feedback to the instructor of a detailed record of 
his students' progress. This has been eliminated in this version, 
being replaced by merely 2 lines on the console typewriter for 
each student run, of the following form: 

(First line) A copy of the TITLE card, the first card of a student's 
program. ' 

(Second line) One of the following two forms: 

ERROR CUT-OFF— nnn LANGUAGE ERRORS, nn REFERENCE ERRORS (or) BALANCE 
SHEET ERROR, xx.xx-, LANGUAGE ERRORS nnn, REFERENCE ERRORS nnn 

A distinction is made between errors in the form of instruc- 
tions (LANGUAGE ERRORS) and errors in the application of instruc- 
tions to particular transactions (REFERENCE ERRORS). 

The instructor may specify upper limits for each of these 
classifications, such that if any student's total errors in either 

category exceeds the upper limit for that category, the outpuT 

phase for that student is eliminated . This feature couldHSe — 
especially convenient in installations not having a printer, where 
the punching of 275 cards of output for a student whose cards were 
reversed in the reader might not be relished. The fields in whi^h 
these upper limits are punched are found in columns 11-13 and l4-l6 
of the first card of the processor object deck proper, sequence 
number 00001. These upper limits are 10 language errors and 15 
reference errors and 15 reference errors when the program is obtained 
from the library. These fields, if changed, should of course have 
their high-order flags punched. 
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The typed log from each run should be given to the in- 
structor. 

IV. Punched vs. Printed output. 

If the installation using WISAL has a M3 Printer attached 
to the 1620, they will probably wish to use it for output, in 
which case a flagged 1 should be placed in column 9 of the first 
card of the processor object deck proper, sequence 00001 of deck 
1. Otherwise the punched output should be printed on a 407 or 
similar device, with a special board. A wiring diagram for a 407 
WISAL board is included in this material. 



V. Timing 

The time required to load the WISAL processor and problem 
from disk storage is considerable, making the system more attrac- 
tive for batch runs than individual runs, and necessitating that 
timing be given in terms of the actual processing time for one 
student's program. 

To process a single student's program on a 1620 Model II with 
a 250 CPM reader and a 240 LPM printer, the time ran about 30 
seconds in the case of an error cut-off, and slightly under 2 minutes 
in the case of a full output. 

On a Model II with an 800 CPM reader and 240 LPM printer, both 
timings were about 10 seconds less. 



VI Program Organization and Processing 

The WISAL Processor is stored on disk in Monitor reloadable 
lormat, and has several transfers of control ("executes") during 
the process of loading into core storage. During these, sections 
of the problem and processor are written out to the Monitor cylinders. 
Tne minimum work cylinder size, 10 cylinders, is more than suffi- 
cient to contain these overlays. 
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The phases of the Processor are described below: 



VII. Organization of the Project. 



PHASE Al Reads the problem, which is stored in core image format, 
from the disk and writes it back out to the work cylinders in 
sections, relocating addresses in the problem so that each problem 
section may reside as high in core storage as its length dictates. 
Any person desiring to write a new problem is warned that his pro- 
blem should not be much more lengthy than is the standard problem, 
or core overlap with PHASE Al will result. 

INTERPHASES . During these transfers of control, phases of the 
processor are written out into the work cylinders. 

OUTPUT ROUTINE . Either the card of> printer output routine is selected 
and written out to disk storage for subsequent use, based on the 
"printer switch digit" previously mentioned. 

PHASE B. This phase reads the program, produces diagnostics iiP 
appropriate, and compiles the instructions into code interpretable 
by Phase C. 

PHASE C . This phase reads the reference section, produces diagnostics 
if appropriate, and executes the code from Phase B interpret ively to 
update the total debits and total credits of general ledger and 
accounts receivable subledger accounts. In Phase C the decision is 
then made whether to continue on to Phase Dl for a full printout, or 
to return to Phase B or to Monitor due to excessive errors. 

PHASE Dl . Produces the general ledger and accounts receivable sub- 
ledger as output. 

PHASE D2 . Derives and produces the income statement and balance 
sheet, and returns to Phase B or to Monitor. 



Decisions as to use of WISAL and time spent on the project 
are of course up to the accounting instructor and computing in- 
stallation, but the f ollowing schedule is offered as a guide. 

A. Before the sixth week before the end of the term, the 
students should have obtained and read the student text, "Com- 
puter Accounting Case" (John Wiley, 1966). The sixth week before 
the end of the term is then a good time for the students to write 
their programs on the forms provided in the text, and submit 
them. 

B. In the fifth week before the end of the term, the program 
can be keypunched and the initial run made at the installation. 
Keypunching instructions can be found in the subsequent section, IN- 
PUT. See also the section OPERATING INSTRUCTIONS. On card system, 
the programs and output are then listed on a 407 or similar device. 

C. The program and output listings are then returned to the 
students, who make corrections and resubmit. This procedure con- 
tinues until the correct solution is obtained by each student. The 
correct solution is presented in the student text, in terms of the 
correct figures for each accounT, for the balance sheet total, etc. 
The program to obtain this solution is presented in the instructor's 
manual, and also in deck 2 of this 1620 system. 

Due to class scheduling or other reasons, the instructor 
might specify that only a certain number of resubmissions are to be 
made or none at all. The starting date for the project could then 
be set later. 
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VIII. Pre-coding by instructor. 

Depending on the level of advancement of his students 
and the degree of difficulty of problem he desires, the in- 
structor may choose to pre-code some of the transactions in 
the accounting case. Instructions for so doing are found in 
the instructor's manual. 

If he desires precoding, the instructor will provide 
the computing installation with a program in the WISAL language. 
This is key -punched just as if it were a student program (see 
a subsequent section), except that the word TITLE on the first 
card is replaced by ADMIN. Several copies of this deck should 
then be made, and any WISAL run of student programs should have 
this deck insert ed"T5ehind ttie~WXEQ WISAL card and before the 
first student's TITLE card. 
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INPUT 

The student manuals contain an ample supply of WISAL 
coding forms, and also a section in which to code the reference 
section where individual transactions are assigned to routines 
for processing. The installation and the instructor have the 

option of 

1) Letting the accounting students themselves 4o the 

keypunching 

2) Using student workers to do the punching 

3) Using professional keypunch operators 

It is suspected that almost all groups contemplating WISAL will 
quickly reject the first possibility. In either of the other 
cases, the program coding forms are self-explanatory: 

Columns 1-7 Page and line numbers 

Columns 8-11 Label of routine (left -justified) 

Columnsl2-72 Instructions 

Columns 73-80 Identification, sequencing, or blank 

The student has also written on his coding sheets, either 
as the first or last line, his name, section, and other information. 
This should be keypunched on the first card, with the word TITLE 
in columns 1-5. 

The sheets constituting the reference section have, associated 
with each transaction, 4 boxes in which to enter a label of a routine 
to handle that transaction. The number of transactions on a page 
varies from 3 to32. Follow the following rules in punching the cards 

in the reference section: 
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1) One page is punched into one card 



2) The letters 'XREF' are to be punched in columns 1-4 
of all cards in the reference section 

3) The number of the first transaction on the page is 
to he punched in columns 9-11 , right justified 

4) The label that the student has associated with the 
first transaction on the page is to be punched in columns 12-15., 
that associated with the second in 16-19, and so on through 
successive quadruples of columns until the last label written . 
on the page is punched. Should a student leave the 4 boxes for 
some transaction blank due to precoding of transactions by the 
instructor, the related four columns on the card should be left 
blank. Labels here, as in the program, should be left- justified. 

5) Again, columns 73-80 may be used for identification or 
sequencing. 

OUTPUT 

On a system with an on-line printer, the entire program 
and reference section are automatically listed as they are 
read, with diagnostics appearing interspersed in the listing. 
On a card system, only input cards in error are repunched, 
followed by the diagnostic. 

On any system, if the errors discovered do not exceed the 
upper limits (see a previous section), a full output is then pro- 
duced, consisting of a general ledger, accounts receivable sub- 
ledger, income statement, and balance sheet for the Wholesale 
Paper Company for the period. This amounts to 5 pages of listed 
output, or about 275 cards on a card system. 

On a card system, the output must be listed on a 407 or 
similar machine, with a special panel board. Specifications for 
the board, and a diagram of its wiring for a 407, are included 
herewith. 

RESTRICTIONS The use of WISAL as submitted is clearly re- 
stricted to the single problem, The Wholesale Paper Company 
Anyone desiring to code a new problem must do so in SPS in a 
form acceptable to the WISAL processor. Detailed instructions 
for coding a problem can be found as comments in the source 
listing of the problem included herewith. 
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HALTS AND MESSAGES 



In addition to the student-directed diagnostics, messages 
to the operator may be typed, as follows: 

I. Operator Directed Messages. 

ENTER 4-DIGIT DIM NO. OF PROBLEM 

In the case when more than one problem is defined under the 
WISAL processor by a flagged one in column 10 of the first sequen- 
ced card of the processor deck, the operator should here type a 
4-digit DIM number as instructed by the student or instructor. 
This message will not occur in the program as received from the 
library. On Release and Start, operation continues. 

TITLE OR ADMIN CARD MUST BEGIN INPUT 
CORRECT, START 

„™, T ,. T The £ irst card following the #XEQ WISAL must bear the letters 
ADMIN or TITLE in columns 1-5. A halt occurs. The operator may 
correct the card, replace the deck in the card reader with thecor- 

rected card first, and press START. 

A TITLE CARD HAS BEEN FOUND IN THE SOURCE PROGRAM 
SW 2 OFF TO CONTINUE AND IGNORE, ON TO ACCEPT. 

The operator should examine the input deck, including the last 
few cards read. There will be a card bearing the word TITLE or ADMIN 
m columns 1-5. If the cards preceding the offending card have the 
same identification (columns 73-80) as those following it, he may 
simply START. Otherwise, he should turn switch 2 ON and start. If 
the student, instructor, or some other person with a knowledge of 
WISAL is present, he should be consulted. 



TITLE CARD MISSING 

The operator should examine the input deck, including the last 
few cards read. One or more cards have been read with the letters 
XREF in columns 1-4. Following these is the last card read. This 

card may be one of three types: 
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1) A card with TITLE or ADMIN in columns 1-5 misspelled. 
Also of this type is any card bearing a student's name, section 
number, etc., but with TITLE entirely missing. 

2) A card with XREF misspelled in columns 1-4 

3) Some stray card 



In the case of 3), the operator may just START. In the case 
of 1 or 2, the operator should correct the card, place it before 
the remainder of the input in the card reader, and START. 



II. Unlikely messages 

None of these should occur in the operation of the program 
and problem as received from the library. Most deal with the 
creation of a new problem. 

WISAL VS. PROBLEM FIELD LENGTH NON-MATCH 

The length of a field must be the same in the processor and 
problem. The processor and problem come from the library with both 
7. This calls for a change to the source deck, and re-assembly of, 
either the processor or the new problem. 

CORE OVERLAP, PROBLEM WITH WISAL PHASE. . 

Some section of the new problem. must be shortened. See the list- 
ings of phase Al of the processor, and of the standard problem. 

STUDENT PROGRAM EXCEEDS CORE CAPACITY AT THIS POINT 

STUDENT PROGRAM TERMINATED, JOB TERMINATED 

This message would be punched or printed, and a sudden END OF 
JOB would occur, with cards still remaining to be processed. 

With the standard problem, if the input is examined, it should 
be found that the programs of several students were run together 
under the same title card. This should be corrected and the run again 
performed. 

BAD OUTPUT CODE IN I. S., B. S. LABELS 

One of the codes used by the person writing a new problem in 
the income statement or balance sheet is unknown to the" processor. 
See the listings of phase D2 and the standard problem. 
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OPERATING INSTRUCTIONS 

I. Loading the WISAL System to Disk. 

Before running deck (the standard problem) to load the 
problem on disk, a cold start should have been done to bring 
Monitor into core. Also, it should be determined that DIM 
number 3'3l is available (or 3^1 should be made available). 

Deck begins with a JOB card. On the first time run, 
the *DELET WISPRB card will produce a DUP*ERROR 20. This may 
be started, and ignored, with impunity, as may the similar 
condition resulting from the *DELET WISAL in deck 1. 

At the start of deck 1 tbare are message records inquiring 
whether the problem did indeed load to DIM number 3^1, and a 
^PAUS record. This should be started if the problem did load 
as 3ol. 

Deck 2 is the sample (correct) program in the WISAL language. 
This should be run according to the following instruction for 
an individual run with no precoding. 

Before running DECK 1, the first sequenced card therein may 
be modified as previously described according to the presence of 
an on-line printer and the choice of the instructor as to error 
cut-off point. 



II. Running WISAL programs. 

It should be determined from the instructor before any pro- 
cessing of student programs whether running is to be done on an 
individual basis or a batched basis, and whether precoding is to 
be done or not. These decisions determine four distinct nodes of 
operation. 
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The processor uses the last-card indicator to determine 
the end of its input. Thus, at no time should a last-card 
condition be allowed to occur except at the end of input. 
Also, other Monitor jobs should not be stacked behind a WTSAL 
run, except for an individual run with no precoding. 

The use of console switch 1 is summarized in the following 
table: 

BATCHED? PRECODING? STI 1 - SETTING 

No No OFF 

No Yes ON 

Yes No ON 

Yes Yes ON 

The deck representing WISAL input should be preceded by 
^JOB 5 
j^&EQ I'JISAL 

control records. The printer should be readied if present on-line, 
the punch otherwise. Aside from the previously mentioned error 
messages and halts, operation should be straight forward. 

The only other factor important in the operation of the program 
is the insertion of the ADMIN deck if precoding is being done by the 
instructor. This is described in a preceding section, PRECODING BY 
INSTRUCTOR. 

EQUIPMENT REQUIRED 

IBM 1620 Model I or II 
1 1311 Disk Drive 

20,000 positions of core storage or more 

Card reader-punch 

Indirect addressing 

No other soecial features. 



Can utilize 1443 printer, but this is not required 
SOFTWARE REQUIREMENT : Monitor I or II 

ASSEMBLER USED 

IBM 1620-1710 SPS II-D as provided with MONITOR I, VERSION 



WISAL B0ARD SPECIFICATIONS 
F0R UNIT-REC0RD PRINTER 

(No board diagram has been included in this writeup) 



1. On = (3-8 punches) in column 1, restore to new page after 
printing 

2. On * (11-4-8 punches) in column 80, restore to new page 
before printing 

3. If alter stvitch 1 is off, transfer print columns 2-80 in 
print positions 20-99 

4. If alter switch 1 is on, 

A. Transfer print columns 2-80 in print posi- 
tions 20-99 if * (11-4-8) in column 1 or 80. 

B. On any other card, split as follows: 

CARD C0LS. PRINT P0S. 

1-4 1-4 

5-39 10-44 

40 - 50 48 - 58 

51 - 59 61 - 69 

60 - 69 73 - 82 

70-80 86-96 



(Pages 19-23 omitted by author) 
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© 



/T>\ 



SYMBOL TABLE 





T TABLE 


18965 




LTABLE 


11688 


I TABLE 


08910 


HEDDSB 


19654 


HEDDSA 


19604 






ARLB1 


10975 




ARNM 1 


10595 




ARTOT 


16559 


OATEP 


19833 




GLTOT 


15201 






HE DDR 


19600 




ISLB1 


0492? 




L 


00007 


LDNM1 


09244 




LDSA 


19681 






Li 


12011 




L10 


12381 




Lll 


12423 


L12 


1249 7 




L13 


12535 






L14 


12609 




L15 


12649 




L16 


12725 


L17 


12749 




Li8 


12809 






L19 


12825 




L2 


12043 




L20 


12859 


L21 


12899 




L22 


12939 






L23 


13007 




L24 


13059 




L25 


13131 


L26 


13207 




L27 


13253 






L28 


13293 




L29 


13361 




L3 


12071 


L30 


13413 




L31 


13453 






L32 


13497 




L33 


13529 




L34 


13589 


L35 


13631 




L36 


13685 






L37 


13703 




L38 


13 767 




L39 


13803 


L4 


12111 




L40 


13829 






L41 


13857 




L42 


13929 




L43 


13973 


L44 


14009 




L45 


14055 






L46 


14095 




L47 


14165 




L48 


14217 


L49 


14279 




L5 


12157 






L50 


14345 




L51 


14383 




L52 


14425 


L53 


14471 




L54 


14503 






L55 


14 55 7 




L56 


14629 




L5 7 


14671 


L58 


14733 




L59 


14775 






L6 


12203 




L60 


14821 




L61 


14877 


L62 


14925 




L63 


14991 






L64 


15029 




L7 


12257 




L8 


12307 


L9 


12343 




MONTH 


19899 






P 


15215 




R 


00021 




S 


00021 


SPEC 


16552 




TUSWS 


15070 






ri 


16941 




Tlv, 


17106 




T100 


18561 


T101 


18580 




T102 


18604 






no3 


1R616 




T104 


18628 




T105 


18640 


T1Q6 


18652 




T107 


18664 






T108 


18676 




T109 


18709 




Til 


17123 


T110 


18721 




Till 


18733 






T112 


18745 




T 11 3 


18757 




T114 


18769 


T115 


18788 




T116 


18807 






T117 


18826 




Tl 18 


18845 




TIL9 


18864 


T12 


17147 




T120 


18876 






T121 


18888 




T122 


18900 




T123 


18919 


T124 


18931 




T125 


18943 






T13 


17171 




T14 


17188 




T15 


17207 


T16 


17219 




T17 


17231 






T18 


17243 




T19 


17255 




T2 


16960 


T20 


17267 




T21 


17286 






T22 


17303 




T23 


17327 




T24 


1 7351 


T25 


17370 




T26 


17387 






T27 


17399 




J2f> 


17418 




T29 


17430 


T3 


16972 




T30 


17449 






T31 


17468 




Ti<L 


17485 




T33 


17502 


T34 


17519 




T35 


17536 






T36 


17548 




T37 


17572 




T38 


17589 


T39 


17606 




T4 


16984 






T40 


17618 




T41 


17630 




T42 


17647 


T43 


17666 




T44 


17678 






T45 


17695 




T46 


17707 




T47 


17719 


T48 


17731 




T49 


17743 






T5 


17008 




T5C 


17760 




T51 


17777 


T52 


17796 




T53 


17808 






T 54 


17820 




T55 


17832 




T56 


17844 


T57 


17856 




T58 


17875 






T59 


17892 




T6 


17032 




T60 


1791 1 


T61 


17923 




T62 


17935 






T63 


17954 




T64 


1 7966 




T65 


1797R 


T66 


17990 




T67 


18002 






T6P 


18014 




T6 r ^ 


18031 




T7 


17051 


T70 


18055 




T71 


18Q74 






T72 


18091 




m 


U124 




T74 


18136 


T75 


18155 




T76 


18172 






T77 


18196 




T78 


18220 




T79 


18244 


T8 


17070 




T80 


18261 






T81 


18280 




T82 


18292 




T83 


18316 


T84 


18333 




T85 


18345 






T86 


18357 




TG / 


18369 




T88 


19381 


T89 


18393 




T9 


17089 






T90 


18<*05 




T9 i 


18417 




T92 


184?0 


T 9 3 


1844 1 




T94 


18453 






T95 


18470 




T96 


1848 / 




T97 


18 504 


T98 


185 2 3 




T99 


18542 






wpc 


19767 




X 


16559 




X5 


19592 


Yl 


04926 




Y2 


09236 






Y3 


11682 




Y4 


15070 




Y5 


16938 














OQO 10*»* 


SYMBOLIC PROBLEM PARAMfc 


TfcKS 
















00020 


L 


OS 


,7 


, LENGTH 


JF A 


WISAL 


FIELD 










00007 


00000 


00030 


S 


OS 


,3 


*L, 


LENGTH 


OF 


A GENERAL LEDGER IN BLOCK 4 






00021 


00030 


000 AO 


R 


OS 


,3*L, 


LENGTH 


OF 


A GENERAL LEDGtR IN BLOCK 2 






00021 


0000 


00050*** 


END 


OF HEAOER 


SECTORS 


» » » 
















00060************** 


»»»»**» ^ » 


»»*»*♦»##»»*#»»*»*»»**»•» »»»*♦*♦* ••»•••••••** 






000 TO* 
























i 






00080* 




BLOCK I — I 


.S. AND B. 


S. LABELS, VECTOR TABLES 




• 






00090* 
























» 






00 100* ****** ******* 


» * 


#»»»«»*»*•»*# »«*♦»#» »»*»*# » * • * *» * » • »»•<•••*••»•»••• »■» 






oono 


Yl 


OS 


,4926, ADJUST TO MAKE X5 


LESS THAN HE DDR, 


MUST 


BE EVEN 


04925 


00300 


00120 




DORG 


V ! 




















04926 




00130 


ISLB1 


D AC 




, SALE'S 3, 


» 








, THE DC 


AFTER 


EACH 


LABEL 


04927 


00312 


00140 




DC 


2, 













, EQUALS 


TWICE 


THE 


NO. 


04939 


00002 


00150 




DAC 


29 


,LESS RETURNS 


ANO 


ALL0WANCES2 , 


, OF COLUMNS DESIRED FROM 


04941 


00358 


00160 




DC 


2, 


46 










, THE 2ND 


S IN 


-SALES- ON 


04999 


00332 


00170 




DAC 


10 


, D I SCOUN T S5 » , 








, THE OUTPUT PAGE TO THE 


50 31 


00020 


00180 




OC 




20 










, RIGHT END OF 


THE 


LABEL. 


05321 


00002 


00190 




DAC 


2 


, 6 , , 










, (FOR CARD POSITIONING 


05023 


3330^ 


00200 




DC 


2 , 


on 










, PURPOSES) . 






05027 


00002 


00210 




DAC 


19 


,COST OF 


GOODS 


SOLDO, , 












05029 


30338 


00220 




DC 




26 


















05067 


00002 


00230 




DAC 


20 


, BEGINNING IWENT0RY2,, 




, T HE LAST 


CHARACTER 


->F 


05069 


300^0 


00240 




DC 


<~ » 


34 










, L AC H DAC IS A 


CupE 


05109 


003 32 


00250 




DAC 


10 


, PURCHASE S2 , » 








, REPRESENTING 


THE 




05111 


00020 


00260 




DC 


2, 


14 










, PARTICULAR AC 


T I ON 




05131 


30302 


00270 




DAC 


! 1 


.FREIGHT 


-IN2,, 








, TO BE TAKEN 






05133 


00022 


00280 




DC 


2, 


16 


















05155 


00002 


00290 




DAC 


17 


,Lc"SS RETURNS 


ANOO 














05157 


00034 


0030O 




DC 


2, 


28 


















05191 


30302 


00 310 




DAC 


11 


.ALLOWANCES! , , 








,0 MEANS 


OUTPUT 


THE 




05193 


30322 



00320 


DC 


2,22 


,, LABEL ONLY 


05215 


00002 


00330 


DAC 


19, PURCHASE DISC0UNTS4,, 




05217 


00038 


00340 


DC 


2,38 


,«1 MEANS ADD THE GENERAL 


05255 


00002 


00350 


DAC 


14, COST OF GOODSO,, 


,, LEDGER FINAL BALANCE 


05257 


00028 


00360 


DC 


2, 32 


prf<;fnti y rfffrfntfo 


052B5 


00002 


00370 


DAC 


14.AVAFI AR1 F FDRfl.. 


INI THF X/FTTflR TARIF 


05287 


00028 


00380 


DC 


? . ^4 


• - TD Rl DTK 7 TD THF 


05315 


00002 


00390 


DAC 




mi IIMW 1 TflTAI f THFRF 


05317 


000 1 


00400 


DC 


2,16 


. . ARF 4 mi IIMNl<> 1 . AND 


05327 


00002 


00410 


DAC 


17, ENDING INVENT0RY9,, 


ADVANTF THF POINTFR 


05329 


00034 


00420 


DC 


2,28 


IN THF VFTTflR TARIF 

,, ItY 1 n t V l_ L» 1 CJ rv I HULL 


05363 


00002 


00430 


DAC 


19, COST OF GOODS S0LD8,, 


,, TO THE NEXT TOTAL. 


05365 


00038 


00440 


DC 


2,42 


,, ALSO DISPLAY GLFB CDL1 


05403 


00002 


00450 


DAC 


2 , 0, f 




05405 


00004 


00460 


DC 


2 , 00 


»»2 MEANS ADD G.L.F.B. 


05409 


00002 


00470 


DAC 


13, GROSS PR0FIT6,, 


TO THF COLUMN 2 


05411 


0002 6 


00480 


DC 


2,30 


,, TOTAL, ADVANCE THE 


05437 


00002 


00490 


OAC 


2, 0, , 


,, POINTER 


05439 


00004 


00500 


DC 


2,00 


,, ALSO DISPLAY GLFB COL 2 


05443 


00002 


00510 


DAC 


17, SELLING EXPENSESO,, 




05445 


00034 


00520 


DC 


2,22 


,,3 MEANS ADD TD COLUMN 


054 79 


00002 


00530 


DAC 


15, SALES SALARIES1,, 


,, 3 TOTAL, ADVANCE 


05481 




00540 


DC 


2 ,24 


,, ALSO DISPLAY IN COL 3 


05511 


00002 


00550 


DAC 


12 , ADVERT I S I NG I, , 


,,4 MEANS DISPLAY REFERENCE 


05513 


0002 4 


00560 


DC 


2,18 


D FINAI RAI ANTF TDI 1. 


05537 


00002 


00570 


DAC 


9. DFL I VFRY t . . 


add rn rni i tdtai . 


5539 


ri n n i q 

LI U LI 1 o 


00580 


DC 


2,12 


.. ni<;pi ay rni l totai 


0555 7 


00002 


00590 


DAC 


2 1 » DEPREC I AT ION - STOREO, , 


,, IN COL 2, ADD COL 1 


5 559 


00042 


00600 


DC 


2,36 


,, TOTAL TO COL 2 TOTAL 


05601 


00002 


00610 


DAC 


10.E01JIPMENT1, , 


,, THEN RESET COL 1 TOTAL 


05603 


00020 


00620 


DC 


2,20 


,, TO ZERO , ADVANCE 


05623 


00002 


00630 


D AC- 


15, STORE SUPPLIES1,, 






00030 


00640 


DC 


2 , 24 




05655 




00650 


DAC 


10, INSURANCE1 » , 


,,5 MEANS DISPLAY RGLFB 


0565 7 




00660 


DC 


7, 14 


,, IN COL 2, ADD RGLFB 


05677 


0000? 


00670 


DAC 


14 , M I SCELLANE0US4, , 


TD '"HI ? TDTAI . DI^PIAY 


05679 


00028 


00680 


DC 


2,22 


rni ? thtai in rni % 


05 707 


n n ""i ^ 7 


00690 


DAC 


2 t , , 


Ann rni ? thtai tr 


5 709 




00700 


DC 


2,00 


,, COL 3 TOTAL, RESET C2T, 


5713 


00002 


007 10 


DAC 


17, GENERAL EXPENSESO,, 


,, AND ADVANCE 


5 715 


0003^ 


00720 


DC 


2 » 22 




05749 


00002 


00730 


OAC 


16, OFFICE SALARIES!,, 






"X A ^ a 7 


00 740 


DC 


2,26 




O J 1 o o 


U U LI U <i 


00750 


DAC 


18, OFFICERS SALARIES1,, 


TflTAI IM Til ^ 


nc;7Qi; 


JUJja 


00760 


DC 


2, 30 


WITH 4 IN R ir.HT flF r ? 


05821 


0000? 


00770 


DAC 


14, PAYROLL TAXES!,, 




O J O C D 


LI U U C ?5 


00780 


DC 


2,22 




U J _> 1 


a n r\ n o 


00790 


DAC 


5 , REN T 1 , , 


..7 MC AWC ilUPI AY r?T 


<J D o J O 




00800 


DC 


2,04 


, » I N C2 


06863 


00002 


00810 


DAC 


16, OFFICE SUPPLIES!,, 




05865 




00820 


DC 


2,26 




05897 


00002 


00830 


DAC 


22 , DEPREC I AT I ON - OFFICEO,, 


..Ft MCAMC ni<iP <"?T IN r \ 




004- 4- 


00840 


DC 


2,38 


. . r^T = r^T + r?T 


5943 


00002 


00850 


DAC 


10, EQU IPMENT1 , , 


, , C2T = 


05945 


00020 


00860 


DC 


2, 20 


, , ADVANCE 


05965 


00002 


00870 


DAC 


10 , UT IL I T IES1 , , 




05967 




00880 


DC 


2,14 


..9 MFANS ni^P ljr,l FR IM 


5987 


0000? 


00890 


DAC 


10, INSURANCE1, , 


(~? AT T DPI PR 


05989 


r\ r\r\ 9 r> 


00900 


DC 


2,14 


,, FROM C2T 


06009 


0000 2 


00910 


DAC 






060 1 1 


00020 


00920 


DC 


2, 14 




06031 


00002 


00930 


DAC 


20, REPAIRS ON BUILDING1, , 


,,Z MEANS DISP CONTENTS 


06033 


00040 



2fr 



17 



00940 
00950 
00960 
00970 
00980 
00990 
01000 
01010 
01020 
01030 
01040 
01050 
01060 
01070 
01080 
01090 
01100 
01110 
01120 
01130 
01140 
01 150 
01160 
01170 
01180 
01190 
01200 
01210 
01220 
01230 
01240 



01250 
01260 
01270 
01280 
01290 
01300 
01310 
01320 
01330 
01340 
01350 
01360 
01370 
01380 
01390 
01400 
01410 
01420 
01430 
01440 
01450 
01460 
01470 
01480 
01490 
015C0 
01510 
01520 
1530 
01540 
01550 



DC 2,34 

DAC 20 , DEPREC I AT I ON - BLDG1,, 

OC 2,34 

DAC 15, PROPERTY TAXES1,, 

DC 2,24 

DAC 14.MISCELLANE0US4, , 

DC 2,22 

DAC 2, 9,, 

DC 2,00 

DAC 21.NET OPERATING I NC0ME6 , , 

DC 2,46 

DAC 25, OTHER INCOME ANO EXPENSEO,, 

DC 2,38 

DAC lo, INTEREST I NCOMt 2 1 , 

DC 2,26 

DAC 1 f » INTEREST EXPENSE 5, , 

DC 2,28 
DAC 2, 0,, 

DC 2.00 

DAC 11, NET i !MC OME 6 , , 

DC 2,26 

DAC ~> , T , , 

DC 2,00 

DAC 2, M , , 

DC 2,00 

DAC 2, 0,, BEGIN BAL SHEET 

DC 2,00 

DAC ~>., 0,, 

DC 2,00 

DAC 7, ASSETSO, , 

DC -2,20 



OF ST0R1 FIELD IN 
CI, ADD TO C1T 

Y MEANS DISP CONTENTS 
OF STGR2 FIELD IN 
CI, ADD TO C1T 



X MEANS DISPLAY ST OR 3 
IN CI, 

C1T = C1T + ST0R3 



rt,V,U MEAN DISPLAY 
ST0R1 , ST0R2 ST0R3 
RESPECTIVELY IN C2, 
ADD SAMfc TO C2T 



•THE FOLLOWING CODES 
CAUSE THE ASSOCIATED 
MESSAGE TO BE PLACED 
IN THE OUTPUT AREA, 
HUT NO CARP TO BE 
NECESSARILY PUNCHED. 



T.S.R CAUSE C3T 10 BE 
LOADED INTO ST0R1, 
S TOR 2 , ST0R3 



06073 
06075 
06115 
06117 
06147 
06149 
06177 
06179 
06183 
06185 
06227 
06229 
06279 
06281 
06313 
06315 
06349 
06351 
06355 
06357 
06379 
06381 
06385 
06387 
06391 
06393 
06397 
06399 
06403 
06405 
06419 



OOOO? 
00340 
00002 
00030 
00002 
00028 
00002 
00004 
00002 
00042 
00002 
00050 
00002 
00032 
00002 
00034 
00002 
00004 
00D02 
00022 
00302 
00004 
00002 
00004 
00002 
00004 
00002 
00004 
00002 
00014 
00002 



DAC 


2,0,, 


,, RESPECTIVELY 


06421 


00304 


DC 


2,00 




06425 


00002 


DAC 


15, CURRENT ASSETSO, , 


,,Q,P,0 CAUSE C2T TO BE 


06427 


00030 


DC 


2,08 


LOADED INTO ST0R1, 


06457 


00002 


DAC 


2,0,, 


,, S TOR 2 , ST0R3 


06459 


00004 


DC 


2,00 


,, RtSPECT I VEL Y 


06463 


00002 


DAC 


13, CASH IN BANK?,, 




06465 


00026 


DC 


2,08 




06491 


00002 


DAC 


il, PETTY CASH2 , , 


,,N CAUSES CIT, C2T, C3T, 


06493 


00022 


DC 


2,04 


,, C4T TO BE ZEROED 


06515 


00002 


DAC 


17, NOTES RECE IVABLE2, , 




06517 


00034 


DC 


2, 16 




06551 


000O2 


DAC 


20, INTEREST RECE I VABLE 2, , 


,,M CAUSES A TITLE CARD 


06553 


00343 


DC 


2,22 


,, COPY AND THE HEADER 


06593 


00002 


DAC 


20, ACCOUNTS RECEIVABLES, 


,, LINES FOR THE BALANCE 


06595 


00040 


DC 


2,22 


,, SHEET TO BE PUNCHED 


06635 


00002 


DAC 


19, LESS ALLOWANCE FORO,, 


,, AND THE TOTALS TO BE 


06637 


00038 


DC 


2,26 


,, / ER3ED 


06675 


00002 


DAC 


10, BAD DEBTS4, , 




06677 


00020 


DC 


2,18 


,,L CAUSES A TITLE CARD 


06697 


00302 


DAC 


22, MERCHANDISE INVENT0RY2, , 


,, COPY 10 BE PUNCHED, 


06699 


00344 


DC 


2,26 


,, AND THE TOTALS ZEROED 


06743 


00002 


DAC 


15, STORE SUPPL I ES2 , , 




06/45 


30330 


DC 


2,12 




067 15 


00302 


DAC 


16, OFFICE SUPPL I ES2 , , 




06777 


00032 


DC 


2, 14 




06809 


00002 


DAC 


18, PREPAID INSURANCE2,, 


,, 'OUTPUT CODES MAY BE 


06811 


00336 


DC 


?, 18 


,, ADDED TU THE SET 


06847 


00002 


DAC 


20,.' PAID INTEREST f)NO, , 


,, BY SIMPLY ADDING 


.06849 


00040 


DC 


2,22 


,, ADDRESSES TO THE DSA 


06889 


00002 


DAC 


14, NOTES PAYABLE?, , 


TABLE IN THE WISAL 


06891 


00028 



01560 


DC 


2,16 , 


, OUTPUT PHASE D2 


06919 


00002 


01570 


DAC 


2, 0,, , 


i ADDING THE ROUTINES 


06921 


00004 


01580 


OC 


2,00 , 


, YOU WANT, AND THEN 


06925 


00002 


01590 


DAC 


21, TOTAL CURRENT ASSETS8, , , 


, USING THE CODES AS 


06927 


00042 


01600 


DC 


2,34 , 


♦ THE LAST CHARACTER 


06969 


00002 


01610 


DAC 


2, 0,, , 


, OF A LABEL 


06971 


00004 


01620 


DC 


2,00 , 




06975 


00002 


01630 


DAC 


28, PROPERTY, PLANT ♦ EQUI PMENTO , , 




06977 


00056 


01640 


DC 


2,34 , 




07033 


00002 


01650 


DAC 


2, 0,, , 




07035 


00004 


01660 


DC 


2,00 , 




07039 


00002 


01670 


DAC 


16, STORE EQUIPMENT!,, , 




07041 


00032 


01680 


DC 


2,14 , 




07073 


00002 


01690 


DAC 


17, LESS ACCUMULATEDO, , , 




07075 


00034 


01700 


DC 


2,22 , 




07109 


00002 


01710 


DAC 


i3,DEPRECIATI0N4, , , 




07111 


00026 


01720 


DC 


2, £6 , 




07137 


00002 


01730 


DAC 


2, 0,, , 




07139 


00004 


01740 


DC 


2,00 , 




07143 


00002 


01750 


DAC 


17, OFFICE EQUIPMENTS, , 




07145 


00034 


01760 


DC 


2, 16 , 




07179 


00002 


01770 


DAC 


1 7 , LESS ACCUMULATEDO, , , 




07181 


00034 


01780 


DC 


2,22 , 




07215 


00002 


01 790 


DAC 


13.DEPRECIATIUN4, , , 




07217 


00026 


oiaoo 


DC 


2,26 , 




07243 


00002 


01810 


DAC 


2, 0,, , 




07245 


00004 


on?o 


DC 


2,00 , 




07249 


00002 


01830 


DAC 


9.BUILDING1, , , 




07251 


00018 


01840 


DC 


2,00 , 




07269 


00002 


01850 


DAC 


17, LESS ACCUMULATEDO , , , 




07271 


00034 


01860 


DC 


2,22 , 




07305 


00002 



3* 



01870 


DAC 


13 , DEPREC I AT I0N4, , 




07307 


00026 


01880 


DC 


2,26 




07333 


00002 


01890 


DAC 


2, 0,, 




07335 


00004 


01900 


DC 


2,00 




07339 


00002 


01910 


DAC 


5 , L AND2 , , 




07341 


00010 


01920 


DC 


2,-8 




07351 


00002 


01930 


DAC 


2,0,, 




07353 


00004 


01940 


DC 


2,00 




7357 


00002 


01950 


DAC 


25, TOTAL PROP, PLNT *■ EQUIP8,, 




07359 


00050 


01960 


DC 


2,42 




7409 


00002 


01970 


DAC 


2, 0,, 




07411 


00004 


O19C0 


DC 


2,00 




07415 


00002 


01990 


DAC 


13, TOTAL ASSETS6, , 




07417 


00026 


02C00 


DC 


2,32 




07443 


00002 


02010 


DAC 


2, J,, 




07445 


00004 


02020 


DC 


2,00 




7449 


00002 


02030 


DAC 


2, R, , 


, .BEGIN LIABILITIES 


07451 


00004 


02040 


DC 


2,00 




07455 


00002 


02050 


DAC 


2, L,, 




07457 


00004 


02060 


DC 


2,00 




07461 


00002 


02070 


DAC 


2, 0, , 




07463 


0000* 


02080 


DC 


2,00 




07467 


00002 


02090 


DAC 


24, L [ABILITIES AND CAPITALO,, 




07469 


00048 


" 1. 00 


DC 


2,46 




07517 


00002 


21 10 


DAC 


2, 0,, 




07519 


00004 


02120 


DC 


2,00 




07523 


00002 


02130 


DAC 


20, CURRENT L I AB I L I T I E SO, , 




07525 


00040 


02140 


DC 


2,18 




07565 


00002 


02150 


DAC 


14, NOTES PAYABLE2, , 




07567 


00028 


02160 


DC 


2, 10 




07595 


00002 


02170 


DAC 


17, INTEREST P AYABLE2 , , 




07597 


00034 



c 



31 



02180 


DC 


2t 16 » » 


07631 


00002 


02190 


DAC 


17, ACCOUNTS PAYABLE2,, i» 


07633 


00034 


02200 


OC 


2,16 t» 


07667 


00002 


02210 


OAC 


29, EMPLOYEES INCOME TAX PAYABLE2,, 


7669 


00058 


02220 


DC 


2,40 tt 


07727 


00002 


02230 


DAC 


23, F. I.C. A. TAXES PAYABLE2,, i. 


07729 


00046 


02240 


DC 


P,28 t, 


77 75 


00002 


02250 


DAC 


25, STATE UNEMPLOYMENT TAXESO,, ,, 


07777 


00050 


02260 


DC 


2,32 t, 


7827 


00002 


02270 


DAC 


8.PAYABLE2,, ,t 


07829 


0001 6 


02280 


DC 


2,04 t, 


07845 


00002 


02290 


DAC 


27, FEDERAL UNEMPLOYMENT TAXESO,,,, 


07847 


00Q54 


02300 


DC 


2,36 ,, 


07901 


00302 


02310 


DAC 


8 , PAYABLE2, , tt 


07903 


00016 


02320 


DC 


2,04 it 


57919 


00002 


02330 


DAC 


20, SALES TAXES PAYABLE2, , ,, 


7921 


00040 


02340 


DC 


2,22 ti 


07961 


00302 


02350 


DAC 


17, SALARIES PAYAHLE2,, ,, 


07963 


00334 


02360 


DC 


2,16 it 


07997 


00002 


02370 


DAC 


31, ESTIMATED INCOME TAXES PAYABLE2 , , 


07999 


00362 


J23e0 


DC 


2,44 it 


06061 


00002 


1<d390 


DAC 


23, PROPERTY TAXES PAYABLE2,, ,, 


06063 


00046 


'-".00 


DC 


2,28 t. 


06109 


00302 


02410 


DAC 


2,0,, tt 


08111 


00004 


0242U 


DC 


2,00 it 


08115 


00002 


02430 


DAC 


26, TOTAL CURRENT L I A3 1 L I T I ES 7 , , ,, 


08117 


0.005 2 


02440 


DC 


2,44 


08169 


00302 


02450 


DAC 


2,0,, 1 1 


08171 


00004 


02460 


DC 


2,00 it 


08175 


00002 


02470 


DAC 


20, LONG-TERM LIA9ILITY0,, ,, 


06177 


00040 


02480 


DC 


2,18 it 


« 2 1 7 


30002 


02490 


DAC 


17, MORTGAGE PAYABLE2 , , ,, 


08219 


00334 


02500 


DC 


2, 16 it 


Od253 


00002 


02510 


DAC 


2,0,, t i 


08255 


00004 


02520 


DC 


2,00 ,t 


08259 


00302 


02530 


DAC 


13, TOTAL LI ABU ITIES6,, ,, 


08261 


000 36 


02 540 


DC 


2,28 tt 


06297 


00002 


02550 


DAC 


2, 0,, it 


08299 


00004 


02560 


DC 


2,00 tt 


08303 


00002 


02570 


DAC 


6, CAPITAL;"),, " 


. 08305 


00016 


02580 


DC 


2,-6 t» 


0832 1 


00002 


02590 


DAC 


30, PREFERRED 6( STOCK - $50 PAR.O,, 


08323 


00060 


02600 


DC 


?,42 tt 


08383 


0000 2 


02610 


DAC 


32 , 200 SHARES ISSUED + OUT STANDI NG I, , 


08385 


00364 


02620 


DC 


2,48 tt 


08449 


00002 


02630 


OAC 


29, COMMON STOCK - S20 PAR, 30000,, 


08451 


00058 


02640 


DC 


2,40 tt 


06509 


00002 


02650 


DAC 


31, SHARES AUTHORIZED, 1500 SHARE SO , , 


08511 


00362 


02660 


DC 


2,46 t, 


08573 


00002 


026 7 J 


DAC 


23, ISSUED ANO OUTSTANDING! 


08575 


00046 




DC 


2,30 it 


08621 


00002 




OAC 


27, PREMIUM ON PREFERRED ST0CK4,,,, 


O0623 


00054 


'CO 


DC 


2,36 tt 


08677 


00002 


02710 


DAC 


2, 0,, •• 


086 79 


OQ004 


02720 


DC 


2,00 t, 


08683 


00002 


02730 


DAC 


2, 0,, tt 


0M685 


00304 


02740 


DC 


2,00 it 


08689 


00002 


027 50 


DAC 


21.NET INCOME FOR MOfiTHZt, t, 


08691 


00342 


02760 


DC 


2,24 tt 


08733 


00002 


02770 


DAC 


27, PREVIOUS RETAINED E ARN I NGS4 , , , , 


08735 


00354 


02780 


DC 


2,36 ti 


08789 


00002 


02790 


DAC 


2,0,, t, 


08791 


00334 



O2R0O 


DC 


2,00 




, t 




08795 


00002 




02810 


DAC 


14, TOTAL 


CAPITALS,, 


, , 


K MEANS ADD ST0R3 TO C3T, 


08797 


00028 




02820 


DC 


2,20 






END WISAL PHASE 02 


08825 


00002 




02830 


DAC 


?, 0,, 






IF ZERO, OTHERWISE 


08827 


00004 


* 


02840 


DC 


2,00 






DISPLAY C3T IN 


08831 


00002 




02850 


OAC 


2, 0,, 




, , 


• YOU GOOFED... • 


08833 


00004 




02860 


DC 


2,00 




, t 


MESSAGE AND THEN OUT. 


08837 


00002 




02870 


DAC 


30, TOTAL 


LIABILITIES AND 


CAP I TAL6, 


, GOING OUT INCLUDES 


08839 


00060 




02880 


DC 


2,46 






ZEROING C1T, C2T, C3T 


08899 


00002 




02890 


DAC 


2, K , , 




, , 


AND C4T. 


08901 


00004 




029C0 


DC 


2,00 




, t 




08905 


00002 




02910**** 






END OF LABELS 




• ••• 









02920**** »»»*»»**«»****»**»****»»*»»***»»»*»*»*»»*»**»**»*»»*** »****«*»*»* 

02930* . , » 

02940» 
02950* 
02960* 

029 ra<t 



THE FOLLOWING VECTOR TABLE REFERS THE ENTRIES 
IN THE PREVIOUS LIST WHICH HAVE THE NOTATION 
-ADVANCE- TO PARTICULAR GENERAL LEDGER 
FINAL BALANCES IN BLOCK 4 
•ThL SYMBOL P WILL HAVE TO BE DEFINED AS GLT0T+2*L 



/10************** ****************************** ************************* 

■jGO* 

10 (TABLE DSA P + 35 *S , P+36*S , P+37* S , SPEC , P+ 38* S , P+ 39*S , P+40*S , P*4 1 *S 



03020* 
03030* 



NOTE THAT IF YO'J WISH TO REFER TO ANY BEGINNING 



08910 


00005 


15950 


08915 


00005 


15971 


06920 


00005 


15992 


08925 


00005 


16552 


08930 


00005 


16013 


08935 


00005 


16034 


08940 


00005 


16055 


08945 


00005 


16076 



34 



03040* 
03050* 
03060 



BALANCES, THEY MUST BE DEFINED SEPARATELY IN BLOCK 4 
DSA P + 6*S,P + 42*S, P + 43*S, P«-44» S , P + 45* S , P + 46* S , P + 47* S , P + 48»S 



03070 



DSA P-»-49*S,P*50*S,P + 5 1*S,P + 5?*S,P + 5 3*S,P + 54*S,P + 55*S,P + 56*S 



DSA P+57*S,P+58*S, P+59 *S , P+60* S , P+ 6 1 *S , P+62 * S , P+6 3 »S 



03090 



DSA P,P*S,P+2*S,P+3*S, P+4*S, P+5*S, P+6*S , P+ 7*S, P+8»S , P+9*S 



08950 


00005 


15341 


08955 


00005 


16097 


0H960 


00005 


16118 


08965 


00005 


16139 


08970 


00005 


16160 


08975 


00005 


16181 


08980 


00005 


16202 


08985 


00005 


16223 


08990 


00005 


16244 


08995 


00005 


16265 


09000 


00005 


16286 


09005 


00005 


16307 


09010 


00005 


16328 


09015 


00005 


16349 


09020 


00005 


16370 


09025 


00005 


16391 


09030 


00005 


16412 


09035 


00005 


16433 


09040 


00005 


16454 


09045 


00005 


16475 


09050 


00005 


16496 


09055 


00005 


16517 


09060 


00005 


16538 


09065 


00005 


15215 


09070 


00005 


15236 


09075 


00005 


15257 


09080 


00005 


15278 


09085 


00005 


15299 


09090 


00005 


15320 



3S- 



03100 



03110 



03120 



3130 

Q3140« 

03150* 



OS A P+10*S,P+ll*S,P+12»S,P+13»S,P+14*S,P+15*S,P+l6»StP+17*S 



DSA P+18*S,P+19*S,P+20*S,P+21*S, P+22»S,P+2 3*S,P+24»S,P+25»5 



OS A P+26»S,P+27*S, P+28*S,P+29»S,P+30*S, P+3 1 *S , P+32*S , P+ 33*S 



DC 5,',, • SO THAT WJSAL CAN TELL THE END OF f HE TABLE 

WHEN RELQCAT ING 
NOTE THAT P+34*S = ACCT 3115 — PROFIT + LOSS SUMMARY, 



09095 
09100 
09105 
09110 
09115 
09120 
09125 
09130 
09135 
09140 
09145 
09150 
09155 
09160 
09165 
09170 
09175 
09180 
09185 
09190 
09195 
09200 
09205 
09210 
09215 
09220 
09225 
09230 
0-^235 



00005 
00005 
00005 
00005 
00005 
00005 
00005 
00005 
00005 
00005 
00005 
00005 
0QOO5 
00005 
00005 
00005 
00005 
00005 
00005 
00005 
00005 
00005 
00005 
00005 
00005 
00005 
00005 
00005 
10005 



15341 
15362 
15383 
15404 
15425 
15446 
15467 
15488 
15509 
15530 
15551 
15572 
15593 
15614 
15635 
15656 
15677 
15698 
15/19 
15 740 
15761 
15782 
15803 
15824 
15845 
15866 
15887 
15908 



7U 



03160* 




DCES NOT ENTER 


INTO 


EITHER BALANCE SHEET OR INCOME 


ST. 






3 1 70**** 




END OF BLOCK 


1 
































03190* 














» 






03200* 




BlCCK 2 A.R. 


LABELS 




* 






03210* 






G.L. 


BEG I NNI NG BALANCES, CORRECT TOT OBS+CRS* 






03220* 






4.R. 


BEG 


UALS, CORRECT 


TOT DBS AND CRS 


• 






03230* 














* 


























32 50* 




















03260 


OAC 


1 , 












09237 


00002 


032 /0 Y2 


US 


t * 


- L 










09236 


00000 


03?ri0* 




















03290* 




. L . 


NUMERIC CONSTANTS 










03300 LCNM1 


DVLC 


,L 


, 19764*10+5 


,L, 


18308*100+81 


,L, 11393*100 + 27 




09244 


00021 


03310 


DVLC 


• L 


,2 5000 


,L , 





, L , 




09265 


00021 


03320 


DVLC 


,1 


,12000*10 


,L, 


81967 


,L,9000 




09286 


00021 


03330* 




















o ) W. - f OR MAT 






EG 8AL 


CORRECT 


CORRECT 








y 








TOTAL PBS 


TOTAL CRS 








.v?ft0* 




















> l 70 


DVLC 


.L 


,908 


,L, 


468 


,L,958 




09307 


0O021 


\tlQ 


OVLC 


.L 


, 4 172* iQO + 8 


,L, 


59606*10+5 


,L, 71804*10+2 




09328 


00021 


:390 


DVLC 


,L 


,-26292 


»L, 


50763 


,L, 50000 




09349 


00021 


03400 


DVLC 


,L 


,35698*100+28 ,L, 


52368*100+53 


,L, 35698*100+28 




09370 


00021 


3410 


DVLC 


, L 


,-1.5000 


,L, 


1 1500 


,L,15000 




09391 


00321 


34 20 


DVLC 


,L 


,9000 


,L, 


9500 


,L,9000 




09412 


00021 


03430 


DVLC 


,L 


, I 1200*10 


,L, 


22650 


,L,6520 




09433 


00021 


03440 


DVLC 


.1- 


,0 


,L, 


3533 


,L,2000 




09454 


00021 


Q34 50 


DVLC 


,L 


, 76000* 10 


,L , 


56750*10 


,L, 2 16 70* 10 




09475 


00021 


03460 


DVLC 


,L 


,-21000*10 


,L, 


17670*10 


,L,926? 




09496 


00021 



03470 


DVLC 


,L 


,23000*10 


tL. 


75000 


tLtO 


09517 


00021 


03480 


DVLC 


,L 


,-60000 


tL, 





,L,1916 


09538 


00021 


03490 


DVLC 


,L 


,42600»100 


tL, 





tL,0 


09559 


00021 


03500 


OVLC 


tL 


,-27658*100 


tL, 





,L,0 


09580 


00021 


03510 


OVLC 


,L 


,50000*10 


tL, 





tL.O 


09601 


00021 


03520 


OVLC 


,L 


,-14000*10 


,L, 


14000*10 


,L, 30000*10 


09622 


00021 


03535 


DVLC 


.L 


,-773 


tL, 


773 


,L,433 


09643 


00021 


,03540 


DVLC 


,L 


,-28049*10 


tL, 


11833*100+87 


,L, 14411*100+47 


09664 


00021 


03550 


OVLC 


,L 


,-26300 


,L, 





,L,0 


09685 


00021 


03560 


OVLC 


.L 


,-9450 


,L, 





,L,0 


09706 


00021 


03570 


OVLC 


,L 


,-15435 


,L, 





tL.O 


09727 


00021 


03580 


DVLC 


,L 


,-2205 


,L, 





,L,0 


09748 


00021 


03590 


DVLC 


«L 


,-61518 


,L, 





,L, 19509 


09769 


00021 


03600 


DVLC 


,L 


,0 


tL, 





,L, 17500 


09793 


00021 


03610 


DVLC 


tL 


,0 


tL, 





,L,0 


09811 


00021 


03620 


DVLC 


,L 


,0 


,L, 





,L,0 


09832 


00021 


36 30 


DVLC 


,L 


,-12000*100 


• L, 





,L,0 


09853 


00021 


J3640 


DVLC 


,L 


,-10000*100 


,L, 





,L,0 


09874 


00021 


*650 


DVLC 


»L 


,-30000*100 


• L, 





,L,0 


09895 


00021 


C 1^60 


DVLC 


tL 


,-22000*10 


.L, 





tL,0 


09916 


00021 


03670 


DVLC 


,L 


,-11983*100- 


76, L, 





tL,0 


09937 


00021 


03680 


DVLC 


.L 


,0 


,L, 


35698*100+28 


,L, 32368*100+53 


09958 


00021 


03690 


DVLC 


,L 


,0 


tL, 





,L, 15714*100+93 


09979 


00021 


03700 


DVLC 


,L 


,0 


,L, 


22554 


,L,0 


10000 


00021 


03710 


DVLC 


,L 


tO 


,L, 


9427 


tL,0 


10021 


00021 


03720 


" DVLC 


tL 


tO 


tL, 


59326*10+7 


,L,0 


10042 


00021 


03730 


DVLC 


tL 


,0 


,L, 


50601 


,L,0 


10063 


00021 


03740 


DVLC 


,L 


,0 


,L, 





,L, 39500 


10084 


00021 


03750 


DVLC 


»L 


,0 


,L, 





,L,4560 


10105 


00021 


03760 


DVLC 


,L 


tO 


,L, 


12333 


,L,0 


10126 


00021 


03770 


DVLC 


tL 


,0 


,L, 


21500 


,L,0 


10147 


00021 



03780 


DVLC 


tL 


,0 


,L, 


10320 


,L,0 


10168 


00021 


03790 


DVLC 


,L 


,0 


,L, 


9262 


,L,0 


10189 


00321 


03800 


OVLC 


,L 


,0 


,L, 


24705 


,L, 1 1500 


10210 


00021 


03810 


DVLC 


,L 


,0 


,L, 


4340 


tLtO 


10231 


00021 


03820 


DVLC 




.0 


,L, 


6577 


tL,0 


10252 


00021 


03830 


DVLC 


,L 


,0 


tL, 


5167 


,L,0 


10273 


00021 


03840 


DVLC 


,L 


,0 


« L » 





,L,0 


10294 


00021 


03850 


DVLC 


,L 


,0 


.L, 





,L,0 


10315 


00021 


03860 


DVLC 


tL 


,0 


,L, 


50000 


,L,0 


10336 


00021 


03870 


DVLC 


tL 


,0 


,L, 


17600 


,L,9500 


10357 


00021 


03880 


DVLC 


tL 


,0 


,L, 


1916 


,L,0 


10378 


00021 


03890 


DVLC 


,L 


.0 


,L, 


20560 


,L,0 


10399 


00021 


039C0 


DVLC 


,L 


,0 


tL, 


2180 


,L,0 


10420 


00021 


03910 


DVLC 


,L 


,0 


,L, 


50000 


,L,0 


10441 


00021 


03920 


DVLC 




. o 


,L, 





,L,0 


10462 


00021 


03930 


DVLC 


,L 


,0 


,L, 





,L,0 


10483 


00021 


03940 


DVLC 


,L 


,0 


,L, 





,L,0 


10504 


00021 


03950 


DVLC 


,L 


,0 


,L, 


2004 


,L,0 


10525 


00021 


03960 


DVLC 


tL 


,0 


,L, 


958 


,L,1618 


10546 


00021 


03970 


DVLC 


tL 


,0 


,L, 


3833 


,L,2306 


10567 


00021 


03980* 


TRAILER 
















03990 


DC 


L, 


■ 








10588 


00007 


04000 


ARNM1 DVLC 


tL 


,20400 


,L, 


28360 


,L, 20400 


10595 


00021 


14010 


DVLC 


,L 


,18615 


,L, 


50235 


,L, 18615 


10616 


00321 


;0 20 


DVLC 


,L .31500 


,L, 


60398 


,L, 91898 


10637 


00021 


^030 


DVLC 


,L 


,25200 


,L, 


31479 


,L, 56679 


10658 


00021 


n40 


DVLC 


,L 


,13352 


,L, 





,L, 13352 


10679 


00021 


.4050 


DVLC 


,L 


,35700 


t L, 


51971 


,L, 35700 


10700 


00021 


04060 


DVLC 


,L 


,53300 


,L, 


87220 


,L, 14052*10 


10721 


00021 


04070 


DVLC 


,L 


,0 


,L, 


37367 


tL,0 


10742 


00021 


04080 


DVLC 


,L 


,19000 


,L, 


21420 


,L, 40420 


10 763 


00021 



39 



04090 


OVLC 


iL 


tO 


,L,9180 


,L 


,0 


10784 


00021 


041C0 


DVLC 


.1. 


,20800 


,L,0 


,L 


, 20800 


10805 


00021 


041 10 


OVLC 


• L 


,20253 


,L, 23715 


,L 


,43968 


10826 


00021 


04120 


DVLC 


,L 


,40300 


,L, 71910 


,L 


, 11221*10 


10847 


00021 


04130 


OVLC 


,L 


, 10025 


,L,0 


,L 


, 10025 


10868 


00021 


04140 


DVLC 


• L 


,0 


tL, 36110 


,L 


,0 


10889 


00021 


OA ISO 


OVLC 


,L 


,50000 


,L,0 


,L 


,50000 


10910 


00021 


04160 


OVLC 


,L 


,0 


,L, 86700 


tL 


,4692 


10931 


00021 


04170 


OVLC 


,L 


,58763 


,L,0 


,L 


,58763 


10952 


00021 


04180** 


TRAL ILER 
















04190 


DC 


L , 










10973 


00007 


04200* 


















04210*** 




A.R. LABELS »*•» 










04220* 


















04230 ARLB1 OAC 


16 


, 10 


ACME CO., , 


" 




10975 


00032 


04240 


OAC 


19 


, ?0 


S. R. BRUWN , , 


'* 




11007 


00038 


04250 


DAC 


21 


, 30 


CUSWELL CORP.,, 






1 1045 


00042 


04260 


OAC 


21 


, 40 


DR \KE-ELM CO.,, 






11087 


00042 


04270 


DAC 


20 


, 50 


FRANK ELK INS,, 






1 1129 


00040 


04280 


OAC 


20 


, 60 


H. B. FISHER,, 






11169 


00340 


04290 


OAC 


18 


, 70 


HARRIS CO.,, 






1 1209 


00036 


04300 


DAC 


19 


, 80 


B. 0. HOWE.,, 






11245 


00038 


04 310 


DAC 


20 


, 90 


KING ♦ RLAKE,, 






11283 


00040 


04320 


DAC 


21 


, 100 


WILLIAM LEEDS, , 






1 1323 


00042 


04 3 30 


DAC 


21 


, 110 


MCCLAIN CORP. , , 






11365 


00042 


04340 


DAC 


18 


,120 


MILLER CO. , , 






11407 


00036 


04350 


DAC 


20 


, 130 


MORTON , INC.,, 






11443 


00040 


04360 


DAC 


18 


,140 


JAMES PUST,, 






11483 


00036 


04370 


DAC 


22 


, 150 


HAROLD ROBERTS, , 






11519 


00044 


04380 


DAC 


19 


, 160 ' 


ft. n. scurr,, 






11563 


00038 


04390 


DAC 


19 


,170 


LEWIS TERRY,, 






11601 


00038 



^4400 OAC 22,180 GEORGE WALLACE , , ,, 

'i^lO** ********************************************************* ********** 

f. ?0» * 
<0» RI.CCK 3 — GENERAL LFUGcR LABELS, VECTORS INTO BLOCK 3 * 



11639 00044 



»5 j* ********** 



*»♦»»»*»»»*#****»*»*»*»******»»»#»***»»**»*'*»*****»*»»* 



*460* 
'.4 70* 



04- , 1 
045C0 Y3 



VECTORS REFER TO THE FOURTH CHARACTER TO SPEED 
COMPILING LOOKUP 

OAC 1, ' , , 

OS 



04510 LTArtLE OS A L 1 +6 , L 2 + 6 , L 3 + 6 , L4 + 6 , L5 + 6 , L 6 + 6 , L 7 + 6 , L 8 + 6 , L9 + 6 , L 10 + 6 



04520 



11683 00002 
11682 00000 

11688 00005 12017 

11693 00005 12049 

11698 00005 12077 

U703 00005 12117 

. . 11708 00005 12163 

11713 00005 12209 

11718 00005 12263 

I 1723 00005 12313 
11728 00005 12349 
11733 00005 12387 

OSA Lll+6,L12+6,L13+6,Ll4+6,L15+6,Ll6+6,L17+b,L18+6,U9+6,L20+6 11738 00005 12429 

U743 Q0005 12503 

11748 00005 12541 

11753 00005 12615 

11758 00005 12655 

11763 00005 12731 

I I 768 00005 12755 
11773 00005 12815 
1 1778 00005 12831 
11783 00005 12865 



HI 



04530 




DSA 


L21+6,L22*6,L23+6,L24'»-6,L25*-6,L26+6»L27+6 I 


L28+6, 


L29+6, 


L30+6 


1 1788 


00005 


12905 
















1 1793 


00005 


12945 
















1 1798 


00005 


13013 
















1 1803 


00005 


13065 
















11808 


00005 


13137 
















11813 


00005 


13213 
















11818 


00005 


13259 
















1 1823 


00005 


13299 
















1 1828 


00005 


13367 
















11833 


00005 


13419 


04540 




DSA 


131+6, L 32+6, L 3 3+6, L 34+6, L 35+6, L 36+6, L3 7+6 


L38+6, 


L39+6, 


L40+6 


1 1838 


00005 


13459 
















11843 


00005 


13503 
















1 1848 


00005 


13535 
















1 1853 


00005 


13595 
















11858 


00005 


13637 
















11863 


00005 


13691 
















1 1868 


00005 


1 3709 
















11873 


00005 


13773 
















1 1878 


00005 


13809 
















11883 


00005 


1 3835 


04550 




DSA 


L4l+6,L42+6,L43*6, L44+6, L45+6, L46+6 » L47 + 6 


L48+6, 


L49+6, 


L50+6 


1 1888 


00005 


13863 
















11893 


00005 


13935 
















11898 


00005 


1 3979 
















1 1903 


00005 


14015 
















11908 


00005 


14061 
















1 1913 


00005 


14101 
















11918 


00005 


14171 
















11923 


00005 


14223 
















11928 


00005 


14285 
















1 1933 


00005 


14351 


04560 




DSA 


L51+6,L52+6,L53+6,L54+6,L55+6,L56+6,L57+6 


L58+6, 


L59+6, 


L60 + 6 


11938 


00005 


14389 
















1 1943 


00005 


- 

14431 
















1 1948 


00005 


14477 
















11953 


00005 


14509 
















11958 


00005 


14563 
















1 1963 


00005 


14635 
















11968 


00005 


14677 
















1 1973 


00005 


14739 
















1 1978 


00005 


14781 
















11983 


00005 


14827 


04570 




DSA 


L61+6,L62+6,L63+6,Lo4+6 








11988 


00005 


14833 
















1 1993 


00005 


14931 
















1 1998 


00005 


14997 
















12003 


00005 


15035 


04580 




DC 


5 » * 








12008 


00005 




04590 


LI 


DAC 


16,1111CASH IN BANK i t 








12011 


00332 




O460O 


L2 


DAC 


14, UL2PETTY CASHt » 








12043 


00028 




046 10 


L3 


DAC 


20,1113NOTES RECEIVABLE,, 








12071 


00040 




'•*>20 


L4 


OAC 


23,1114 INTEREST RECEIVABLE,, 


* » 






12111 


00046 






L5 


DAC 


23 , 1 I 1 5ACC0UNTS RECE I VABLE , , 








12157 


00046 




J4640 


L6 


DAC 


27, 1116ALL0WANCE FOR BAD DEBTS,, 








12203 


00054 




i.;46S ) 


L7 


DAC 


25 , I U7MERCHANDISE INVENTORY,, 


* ' 






12257 


00050 




"»660 


LR 


DAC 


18,1118ST0RE SUPPLIES,, 


» * 






12307 


00036 




04670 


L9 


DAC 


19, 11190FFICE SUPPLIES,, 








1 2343 


00038 




04680 


L10 


DAC 


21,1 120PREPAID INSURANCE, , 








12381 


00042 




04690 


Lll 


DAC 


37, 1121PREPAID INTEREST ON NOTES PAYABLE, 








12423 


000 74 




04700 


L12 


DAC 


19, 1311ST0RE EQUIPMENT,, 








12497 


00038 




047 10 


L 13 


DAC 


37 , 13 1 2ALL0W. FOR DEP. - STORE EQUIPMENT, 








12535 


00074 




04720 


L14 


DAC 


20, 13130FFICE EQUIPMENT,, 








12609 


00040 




04730 


L15 


DAC 


38, 1314ALL0W. FOR DEP. - OFFICE EQUIPMENT 


r » , 






12649 


00376 




04740 


L16 


DAC 


12.1315BUILDING,, 








12725 


00024 




04750 


LIT 


DAC 


30, 1316ALL0W. FOR DEP. - BUILDING, , 








12749 


00060 





OA 760 


L18 


DAC 


8 


, 1317LAND,, 






12809 


00016 


04770 


L19 


DAC 


17 


,2lllN0TES PAYABLE,, 






12825 


00034 


04780 


L20 


DAC 


20 


,2112 INTERE S T PAYABLE , , 






12859 


00040 


04790 


L21 


DAC 


?0 


,2113ACC0UNTS PAYABLE, , 


» • 




12899 


00040 


048C0 


L22 


DAC 


34 


, 2 1 14EMPL0YEES INCOME TAXES PAYABLE » , 


t , 




12939 


00068 


04810 


L23 


DAC 


2b 


,2115F.I.C.A. TAXES PAYABLE, , 






13007 


00052 


04820 


L24 


DAC 


36 


,2116SrATE UNEMPLOYMENT TAXES PAYABLE , , 


• t 




13059 


00072 


04830 


L25 


DAC 


38 


, 2 1 1 7FEDER AL UNEMPLOYMENT TAXES PAYABLE 


» » » 




13131 


00076 


04840 


L26 


DAC 


23 


,2U8SALES TAXES PAYABLE , , 






13207 


00046 


04850 


L27 


DAC 


20 


, 21 19SALAR IcS PAYABLE, , 






13253 


00340 


04860 


L28 


DAC 


34 


,2 120EST IMATED INCOME TAXES PAYABLE , , 






13293 


00068 


04870 


L29 


DAC 


26 


.2121PROPEKTY TAXES PAYABLE,, 


» t 




13361 


00052 


04880 


L30 


DAC 


20 


,221 1M0RTGAGE PAYABLE, , 






13413 


00040 


04890 


131 


DAC 


22 


,311 1PREFERRED 6( STOCK,, 






13453 


00044 


04900 


L32 


DAC 


16 


, 3112CQMMON STOCK, , 






13497 


00032 


04910 


L33 


DAC 


30 


,311 3PREM I UM ON PREFERRED STOCK, , 






13529 


00060 


04920 


L34 


DAC 


21 


, 31 1 4Rfc T A INfcD EARNINGS,, 


, , 




13589 


00042 


:4930 


L35 


DAC 


27 


, 3 1 1 5PR0F I T AND LOSS SUMMARY , , 






13631 


00054 


,0 


L36 


DAC 


9 


,4111SALES,, 






13685 


00018 


04950 


L37 


DAC 


32 


,4112SALES RETURNS AND ALLOWANCES,, 






13703 


00064 


04960 


L38 


DAC 


18 


,4113SALES DISCOUNT,, 






13767 


00036 


04970 


U39 


DAC 


13 


,5U1PURCHASES, , 


, » 




13803 


00026 


04980 


L4Q 


DAC 


14 


.5112FREIGHT-IN,, 






13829 


00028 


04990 


L41 


DAC 


36 


,511 3PURCHASES RETURNS AND ALLOWANCES , , 






13857 


00072 


05000 


L42 


DAC 


22 


,5114PURCHASFS DISCOUNT,, 






13929 


00044 


05010 


L43 


DAC 


18 


,6U1SALES SALARIES, , 






13973 


00036 


05020 


L44 


DAC 


23 


.6U2ADVERTISING EXPENSE , , 






14009 


00046 


05030 


L45 


DAC 


20 


,6113DEL IVERY EXPENSE , , 






14055 


00040 


05040 


1,46 


DAC 


35 


,6114DEPRECIATI0N OF STORE EQUIPMENT,, 


, » 




14095 


00070 


05050 


L47 


DAC 


26 


.6U5ST0RE SUPPLIES EXPENSE , , 






14165 


00052 


05060 


L48 


DAC 


31 


,6116 INSURANCE EXPENSE - GENERAL , , 


M 




14217 


00062 


050 70 


L49 


DAC 


13, 


61 1 7M I SCELL ANEUUS SELLING EXPENSE,, 






142 79 


00066 


05080 


L50 


DAC 


IV, 


71110FFICE SALARIES, , 


, » 




14345 


00038 


05090 


L51 


DAC 


21, 


71120FFU.ERS SALARIES,, 






14383 


00342 


051C0 


152. 


DAC 


?3, 


711 3PAYR0LL TAX EXPENSE,, 


, » 




14425 


00046 


051 10 


L53 


DAC 


16, 


7114RENT EXPENSE,, 






14471 


00032 


05120 


L54 


DAC 


27, 


71150FFICL SUPPLIES EXPENSE , , 






14503 


00054 


05130 


L55 


DAC 


36, 


71 16DEPREC I AT IUN OF OFFICE EQUIPMENT,, 


» , 




14557 


00072 


05140 


L56 


DAC 


21, 


7U7UTILI TIES EXPENSE, , 


» » 




14629 


00042 


05150 


L57 


DAC 


31, 


7U8INSURANCE EXPtNSE - GENERAL , , 


» , 




14671 


00062 


05160 


L58 


M (,. 


?i, 


71 19BA0 uEBTS EXPENSE , , 


» » 




14733 


00042 


05170 


L59 


DAC 


23, 


7 1 20REP A IRS ON BUILDING, , 


» , 




14775 


00046 


05180 


L60 


DAC 


28, 


7121DEPRECIATION OF BUILDIMG,, 






14821 


00056 


05190 


L61 


DAC 


24, 


7122PROPERTY TAX EXPENSE , , 






14877 


00048 


052C0 


L62 


DAC 


33, 


7123MISCE.LL ANtOUS GENERAL EXPENSE,, 






14925 


00066 


05210 


L63 


DAC 


19, 


81 I I INTERtST INCOME , , 






14991 


00338 


05220 


L64 


DaC 


20, 


9 1 1 1 1 N T E R t S T EXPENSE , , 






15029 


00040 


052 30** 


END OF 


G.L. 


LABELS ** 










05240* * ********** 


* » • * » 


••»•••«•*•»»•*••••»»•••»•*•*»•»•«»»»»»• 


»•***•»*»»»*• 






0=»?50» 


















0:> £ 'oO* 






G.L 


. AND A.R. UPOATABLE TOTALS 




* 






52 70 » 












« 






,<:ti0- 


» c *■** *»-».» »» ».* »k • 










05290 




DAC 


1, ' 








15069 


00002 


0i300 


Y4 


DS 


,»+l 






15073 


OOOOO 


0S310» 


















05320* 


TRANSACTION 


USED SWITCHES 










05330* 


















05340 


TUSWS 


DSC 


50, 









15070 


00050 


05350 




DSC 


50, 









15120 


00050 


05360 




DSC 


25, 









15170 


00025 


05370 


GLTOT 


DVLC 


,L, 


,L,0 ,L,0 






15201 


00021 



05380 P 


DS 


,GLT0T>2»L 








15215 


00000 


05390 


DVLC 


.L.O 


.L.O 


,L 





15222 


00021 


05400 


DVLC 


.L.O 


»L,0 


.L 





15243 


00021 


05410 


DVLC 


,L,0 


»L,0 


.L 





15264 


00021 


05420 


DVLC 


.L.O 


.L.O 


»L 


,0 


15285 


00021 


05430 


DVLC 


tL.O 


.L.O 


.L 


o 


15306 


00021 


05440 


DVLC 


.L,0 


.L.O 


»L 





15327 


00021 


05450 


DVLC 


.L,0 


.L.O 


.L 





15348 


00021 


05460 


DVLC 


.L.O 


.L.O 


.L 





15369 


00021 


05470 


OVLC 


,L,0 


.L.O 


»L 





15390 


00021 


05480 


DVLC 


.L.O 


.L.O 


.L 





15411 


00021 


05490 


DVLC 


♦ L.O 


.L.O 


.L 





15432 


00021 


05500 


DVLC 


.L.O 


.L.O 


»L 





15453 


00021 


05510 


OVLC 


.1.0 


.L.O 


.L 





15474 


00021 


05520 


DVLC 


,L,0 


.L.O 


.L 





15495 


00021 


05530 


DVLC 


.L.O 


.L.O 


.L 





15516 


00021 


05540 


DVLC 


»L.O 


.L.O 


.L 





15537 


00021 


05550 


DVLC 


»L,0 


.L.O 


. .L 





15558 


00021 


05560 


DVLC 


.L.O 


.L.O 


,L 





15579 


00021 


05570 


DVLC 


,L,0 


.L.O 


.L 


. 


15600 


00021 


05580 


DVLC 


.L.O 


.L.O 


.L 





15621 


00021 


05590 


DVLC 


tL.O 


.L.O 


.L 





15642 


00021 


05600 


DVLC 


»L,0 


.L.O 


.L 





15663 


00021 


05610 


DVLC 


.L.O 


.L.O 


.L 





15684 


00021 


05620 


DVLC 


.L.O 


.L.O 


,L 





15705 


00021 


05630 


DVLC 


.L.O 


.L.O 


.L 





15726 


00021 


05640 


DVLC 


,L,0 


,L.O 


»L 





15747 


00021 


05650 


DVLC 


.L.O 


. L , 


.L 





15768 


00021 


056f 


DVLC 


• L.O 


|_ Q 


♦ L 1 


o 




00021 


(15670 


DVLC 


.L.O 


♦ L.O 


.L 





15810 


00021 


05680 


DVLC 


»L,0 


• L.O 


.L 





15831 


00021 


05690 


OVLC 


.L,0 


,L,0 


• L 





15852 


00021 


05700 


DVLC 


,L,0 


• L.O 


.L 





15873 


00021 


05710 


DVLC 


.L,0 


,L,0 


»L 


0. 


15894 


00021 


05720 


DVLC 


»L»0 


• L,0 


,L 





15915 


00021 


05730 


DVLC 


.L.O 


.L.O 


.L 





15936 


00021 


05740 


DVLC 


.L.O 


.L.O 


,L 





15957 


00021 


05750 


DVLC 


.L.O 


.L.O 


.L 





15978 


00021 


05760 


DVLC 


,L,0 


.L.O 


.L 





15999 


00021 


05770 


OVLC 


,L,0 


.L.O 


.L 





16020 


00021 


05780 


DVLC 


.L.O 


.L.O 


.L 





16041 


00021 


05790 


DVLC 


.L.O 


.L.O 


»L 





16062 


00021 


058C0 


DVLC 


.L.O 


.L.O 


,L 





16083 


00021 


05810 


DVLC 


.L,0 


.L.O 


.L 





16104 


00021 


05820 


DVLC 


,L,0 


.L.O 


. L 





16125 


00021 


05830 


DVLC 


,L,0 


.L.O 


,L 





16146 


00021 


05840 


OVLC 


.L.O 


.L.O 


,L 





16167 


00021 


05850 


DVLC 


,L,0 


.L.O 


» L 





16188 


00021 


05860 


DVLC 


.L.O 


,L,0 


.L 





16209 


00021 


05870 


DVLC 


»L ,0 


»L,0 


.L 





16230 


00021 


05880 


DVLC 


,L,0 


.L.O 


. L 





16251 


00021 


05890 


OVLC 


.L.O 


. L , 


»L 





16272 


00021 


05900 


DVLC 


.L.O 


.L.O 


.L 





16293 


00021 


05910 


DVLC 


. L , 


,L,0 


. L 





16314 


00021 


05920 


OVLC 


.L.O 


,L,0 


. L 





16335 


00021 


05930 


OVLC 


.L,0 


»L,0 


.L 





16356 


00021 


05940 


DVLC 


.L.O 


.L.O 


,L 





163 77 


00021 


05950 


DVLC 


,L,0 


.L.O 


.L 





16398 


00021 


05960 


DVLC 


.L.O 


»L,0 


. L 


.0 


16419 


00D21 


05970 


DVLC 


.L.O 


.L.O 


.L 





16440 


00021 


05980 


DVLC 


. L , 


.L.O 


,L 





16461 


00021 


05990 


DVLC 


,L,0 


,L,0 


.L 


,0 


16482 


00021 



06000 






DVLC 


f L 


.0 






,0 


,L 


tO 


165Q3 


00021 


06010 






OVLC 


» L 


.0 




,L 


,0 


iL 


»° 


16524 


00021 


06020** 


TRAILER 




















06030 






DC 


L » 


t 












16545 


00007 


06040 


SPEC 


OC 


L i 


3569828, 


, BEGINNING BAL 


ACCT 


1117 


16552 


00007 


06050 


ARTOT 


DVLC 


t L 


ft 

f u 




« L 


» 


,L 


,0 


16559 


00021 


06060 






OVLC 


t L 


t v 




t L 


n 
t <J 


tL 


• 


16580 


00021 


06070 






DVLC 


t L 


. 




1 

1 L 


ft 


rL 


tO 


16601 


00021 


06080 






DVLC 


t L 


. ft 
f u 




» L 





,L 


t 


16622 


00021 


06090 






DVLC 


i L 


. rv 
i u 




» L 




ft 


tO 


16643 


00021 


06100 






DVLC 


i L 


- ri 
t u 




» L 





i L 


tO 


16664 


00021 


061 10 






DVLC 




t 




t L 


A 

u 


t L 


t o 


16685 


00021 


06120 






DVLC 




Q 




? L 





,L 


t 


16706 


00021 


06130 






DVLC 


t L 


Q 




? L 





• L 


t o 


16727 


00021 


06140 






DVLC 


» L 


» 




»L 





tL 


t 


16748 


00021 


06150 






DVLC 


» L 


Q 




t L 





»L 


t o 


16769 


00021 


06160 






DVLC 


, L 


»0 




tL, 





• L 


» 


16790 


00021 


061 70 






OVLC 


t L 


,0 




tL, 





tL 


.0 


16811 


00021 


06180 






DVLC 


» L 







,L, 





tL 





16832 


00021 


06190 






DVLC 


»L 







,L, 





tL 





16853 


00021 


06200 






DVLC 


? L 







» L f 





tL 





16874 


00021 


06210 






DVLC 


i L 







.L, 





tL 


o 


16895 


00021 


06220 






DVLC 


.L 







'L, 





tL 





16916 


00021 


06230** 


TRAILER 




















06240 






DC 


L t 














16937 


00007 


06250* 


• » 




END 


OE f 


7.L. 


A. ft. 


UPDAT ABLE TOTALS 


» * » 







06260****»*********»*«**»****»*»**#»**********«»*»**»»»#»»»»»»»» »«*»#»»»## 
06270* . 
06280* TRANSACTIONS BLOCK • 

06290* * 
06 3 CO************** »**»»*****•**»***»*»»********•*»*»*»*«»*» •••••••••••••» 



06310 




DAC 


I, 


' t t 
















16939 


00002 


06320 


Y5 


DS 


»* 


-I 
















16938 


00000 


06330 


X 


OS 


, ARTOT 














16559 


00000 


.06340 


Tl 


DVLC 


,2 


. 2 


t 3 


t 120 






tl 


,9800 


,L,200 


16941 


00019 


06350 


T2 


OVLC 


, 2 


, 1 


t3 


,001 






tl 


,50000 




16960 


0001? 


06360 


T3 


DVLC 


,2 


. 1 


, 3 


,100 






t L 


,50000 




16972 


00012 


06 370 


T4 


DVLC 


,2 


»-2 


.3 


, 120 


,5 


, X+03*S 


»L 


,24696 


,L,504 


16984 


00024 


06380 


T5 


DVLC 


,2 


.-2 


. 3 


, 120 


,5 


,x+l2*s 


tL 


, 39494 


,L,806 


17008 


00324 


06390 


T6 


DVLC 


.2 


.2 


, 3 


, 120 






tL 


, 19600 


,L,40O 


I 7032 


00019 


064C0 


T7 


DVLC 


,2 


,2 


, 3 


,120 






tL 


,24500 


,L,500 


I 70 51 


00019 


06410 


T8 


DVLC 


.2 


.2 


3 


,120 






,L 


,21560 


,L,440 


17070 


00019 


06420 


T9 


DVLC 


,2 


-I 


3 


000 


5 


t X 


,L 


,28360 




1 7089 


00017 


06430 


T10 


DVLC 


.2 


- 1 


3 


,000 


5 


, X*07*S 


,L 


,37367 




17106 


0001 7 


06440 


Til 


DVLC 


,2 


-2 


3 


120 


5 


, X+08*S 


,L 


18620 


,L,380 


1 7123 


00024 


06450 


T12 


DVLC 





-2 


3 


120 


5 


, X+06*5 


,L 


522 34 


,L,1066 


17147 


00024 


06460 


T 13 


DVLC 


,2 


-1 


3 


100 


5 


, X+05*S 


.L 


35 700 




17171 


00017 


06470 


T14 


OVLC 


.2 


2 


3 


002 




,L 


,10000*10 ,L 


14750*10 


17188 


00019 


06*80 


T15 


DVLC 


t 2 


1 


3 


100 






L 


14750*10 




I 7207 


00012 


06490 


T16 


OVLC 


»2 


1 . 


3 


001 






L 


3620 




17219 


00012 


065Q0 


T17 


DVLC 


.2, 


1 . 


3, 


100 






L 


3620 




17231 


OO012 


06510 


T18 


DVLC 


t2 


1 . 


3. 


001 






L 


87640 




17243 


00012 


06520 


T19 


OVLC 


t2, 


1 i 


3, 


001 






L, 


69580 




1 7255 


00012 


06530 


T20 


DVLC 


t2, 


2 , 


3, 


120 






L i 


4900 


,L,100 


1 7267 


00019 


06540 


T21 


DVLC 


t2, 


-1 i 


3, 


000, 


5 


X+03*S 


L , 


31479 




17286 


00017 


065 50 


T22 


DVLC 


.2t 


-2, 


3, 


120, 


5 


X+10*S 


L, 


20384 


,L,416 


1 7303 


00024 


06560 


T23 


DVLC 


,2, 


-2, 


3, 


120, 


5, 


X+02*S, 


L, 


30870 


,L,630 


1 7327 


00024 


06570 


T24 


DVLC 


.2, 


2 , 


3, 


200 




t 


L, 


4503 


,L, 23279*10*3 


17351 


00019 


06580 


T25 


DVLC 


.2, 


-It 


3, 


100, 


5, 


X+13*S, 


L, 


10025 




17370 


00017 


06590 


T26 


DVLC 


t 2, 


1 , 


3, 


001 




t 


It 


25960 




1 7387 


00012 


06600 


T27 


DVLC 


,2, 


2 , 


3t 


002 




f 


It 


1000 


,L, 10100*10 


17399 


00019 


06610 


T28 


DVLC 


.2, 


1 t 


3, 


100 




t 


L, 


10100*10 




17418 


00012 



06620 


T29 


DVLC 


.2 


2 , 


3,120 




,L 


9900 


tL, 


100 


17430 


00019 


06630 


T30 


DVLC 


,2 


,2 , 


3, 120 




,L 


7425 


,L, 


75 


17449 


00019 


06640 


T31 


OVLC 


,2 


-It 


3,000, 


5, 


X+15»S,L 


50000 






17468 


00017 


06650 


T32 


OVLC 


.2 


-It 


3,000, 


5, 


X+02»S,L 


60398 






17485 


00017 


06660 


T33 


DVLC 


,2 


-1» 


3,000, 


5, 


X+06»S,L 


87220 






17502 


00017 


06670 


T34 


DVLC 


.2 


-It 


3,000, 


5, 


X*01»S,L 


18615 






17519 


00017 


06690 


T35 


DVLC 


,2 


1 t 


3,000 




,L 


15000 






17536 


00012 


06690 


T36 


DVLC 


,2 


-2, 


3,200, 


5, 


X+12»S,L 


400 


tL, 


40400 


17548 


00024 


06700 


T37 


DVLC 


,2 


-It 


3, 100, 


5, 


X+11*S,L 


20253 






17572 


00017 


06710 


T38 


DVLC 


,2 


-It 


3, 100, 


5, 


X ,L 


20400 






17589 


00017 


06720 


T39 


DVLC 


.2 


1 , 


3,001 




,L 


7550 






17606 


00012 


06730 


T40 


DVLC 


,2 


1 t 


3,001 




,L 


20952 






17618 


00012 


06740 


T41 


DVLC 


,2 


-It 


3,000, 


5, 


X+Q4*S,L 


13352 






17630 


00017 


06750 


T42 


DVLC 


,2 


2 , 


3, 120 




,L 


4900 


tL, 


100 


17647 


00019 


06760 


T43 


DVLC 


,2 


1 t 


3, 100 




,L 


11762 






17666 


00012 


06770 


T44 


DVLC 


.2 


-1. 


3,000, 


5, 


X+08*S,L 


21420 






17678 


00017 


06780 


T45 


DVLC 


.2 


1 , 


3,001 




,L 


3500 






17695 


00012 


06790 


T46 


DVLC 


,2 


1 t 


3,001 




tL 


1500 






17707 


00012 


06800 


T47 


DVLC 


,2 


1 , 


3, 100 




tL 


3500 






17719 


00012 


06810 


T48 


DVLC 


t 2 


1 t 


3, 100 




tL 


1500 






17731 


00012 


06820 


T49 


DVLC 


,2 


-I. 


3,000, 


5, 


X+09*S,L 


9180 






17743 


00017 


06830 


T50 


DVLC 


,2 


-1, 


3,000, 


5, 


X+12»S,L 


71910 






17760 


00017 


06840 


T51 


DVLC 


,2 


2 , 


3,002 




,L 


400 


,L, 


40400 


17777 


00019 


06850 


T52 


DVLC 


.2 


1 t 


3,001 




,L 


4000 






17796 


00012 


06860 


T53 


DVLC 


.2 


1 . 


3,001 




,L 


3250 






1 7808 


00012 


06870 


T54 


DVLC 


.2 


1 . 


3, 100 




,L 


40400 






17820 


00012 


06880 


T55 


DVLC 


.2 


1 , 


3, 100 




,L 


4000 






1 7832 


00012 


06890 


T56 


OVLC 


,2 


1 t 


3, 100 




,L 


3250 






17844 


00012 


069C0 


T57 


DVLC 


,2 


2 , 


3, 120 




,L 


86764 


,L, 


876 


1 7856 


00019 


06910 


T58 


OVLC 


t2 


-1. 


3,000, 


5, 


X+06»S,L 


9690 






17875 


00017 


06920 


T59 


DVLC 


,2 


2 , 


3, 200 




,L 


4218 


,L, 


21477*10+8 


17892 


00019 


06930 


T60 


DVLC 


,2 


1 t 


3,001 




,L 


2115 






17911 


00012 


06940 


T61 


DVLC 


1 2 


1 » 


3, 100 




,L 


,2115 






17923 


00012 


06950 


T62 


DVLC 


,2 


2 , 


3,200 




,L 


750 


,L, 


50750 


1 7935 


00019 


06960 


T63 


DVLC 


,2 


1 t 


3,001 




,L 


22650 






17954 


00012 


06970 


T64 


DVLC 


,2 


1 t 


3,001 




,L 


2240 






17966 


00012 


06980 


T65 


DVLC 


.2 


1 t 


3,001 




• L 


10902*10 






17978 


00012 


06990 


T66 


DVLC 


,2 


I t 


3, 100 




,L 


22650 






17990 


00012 


07000 


T67 


DVLC 


,2 


I t 


3, 100 




,L 


2240 






18002 


00012 


07010 


T68 


DVLC 


,2 


-It 


3,000, 


5, 


X+16»S,L 


86700 






13014 


00017 


07020 


T69 


DVLC 


,2 


-2, 


3, 120, 


5, 


X+03*S ,L 


30849 


,L, 


630 


18031 


00024 


07030 


T70 


DVLC 


,2 


,2 , 


3,200 




,L 


2000 


,L, 


19800*10 


18055 


00019 


07040 


T71 


DVLC 


,2 


-It 


3,000, 


5, 


X+17*S,L 


58763 






18074 


00017 


07050 


T72 


DVLC 


,2 


4 , 


3,004 




,L 


40000 


,L, 


20000*10 


18091 


00019 


7060 




DVLC 










,L 


17500 »10 


,L, 


28000*10 


18115 


00014 


07070 


T73 


DVLC 


.2 


1 . 


3, 100 




,L 


28000*10 






18124 


00012 


07080 


T74 


DVLC 


.2 


2 , 


3, 120 




,L 


53488 


tL, 


1092 


1 B 1 36 


00019 


07090 


T75 


DVLC 


,2 


-1, 


3,000, 


5, 


X+ll»S,L 


23715 






18155 


00017 


07100 


T76 


DVLC 


,2 


-2, 


3, 120, 


5, 


X+02*S,L 


59190 


,L, 


1208 


18172 


00024 


07110 


T77 


DVLC 


,2 


-2, 


3, 120, 


5, 


X+06*S, L 


,75979 


,L, 


1551 


18196 


00024 


07120 


T78 


DVLC 


,2 


-2. 


3, 120, 


5, 


X+08*S,L 


20992 


,L, 


428 


18220 


00024 


07130 


T79 


DVLC 


,2 


-It 


3,000, 


5, 


X+12*S,L 


6550 






18244 


00017 


07140 


T80 


DVLC 


,2 


2 , 


3,200 




,L 


4353 


,L, 


25006*10+3 


18261 


00019 


07150 


T81 


DVLC 


,2 


1 t 


3,000 




,L 


24500 






18280 


00012 


07160 


T82 


DVLC 


,2 


-2t 


3, 120, 


5, 


X+12*S,L 


64053 


,L, 


1307 


18292 


00024 


07170 


T83 


OVLC 


,2 


-It 


3,000, 


5, 


X+01*S,L 


50235 






18316 


0001 7 


07180 


T84 


DVLC 


,2 


1 t 


3,001 




,L 


6530 






18333 


00012 


07190 


T85 


DVLC 


,2 


1 , 


3, 100 




,L 


6530 






18345 


00012 


07200 


T86 


DVLC 


,2 


rl t 


3,001 




,L 


,92020 






18357 


00012 


07210 


T87 


DVLC 


,2 


1 t 


3,001 




» L 


,75000 






18369 


00012 


07220 


T88 


DVLC 


,2 


I , 


3, 100 




,L 


,7500 






18 381 


00012 


07230 


T89 


DVLC 


,2 


I , 


3,100 




,L 


75000 






18393 


00012 



07240 
07250 
07260 
07270 
07290 
07290 
07300 
07310 
07320 
07330 
07340 
07350 
07360 
07370 
07330 
07390 
07400 
07410 
07420 
07430 
07440 
07450 
07460 
07470 
7480 
74 90 
07500 
07510 
7520 
07530 
07540 



T90 

T91 

T92 

T93 

T94 

T95 

T96 

T97 

T98 

T99 

T100 

T101 

T102 

T103 

T104 

T105 

T106 

T107 

T108 



T109 
TllO 
Til 1 
T 1 1 2 
T 1 1 3 
T114 
T115 
Ti l 6 
Til 7 
T118 
Til 9 



DVLC 

DVLC 

DVLC 

DVLC 

DVLC 

DVLC 

DVLC 

DVLC 

DVLC 

DVLC 

DVLC 

DVlC 

DVLC 

DVLC 

DVLC 

DVLC 

DVLC 

DVLC 

DVLC 

DVLC 

DVLC 

DVLC 

DVLC 

DVLC 

DVLC 

DVLC 

DVLC 

DVLC 

DVLC 

DVLC 

DVLC 



.2,1 ,3,001 

,2,1 ,3,100 

,2,1 ,3,001 

,2,1 ,3,001 



,L, 17500 
,L, 17500 
,L, 65200 
,L, 54260 



.2,-1, 3, 000,5, XU6»S, L, 4692 
,2,-1, 3,000,5,X*14»S,L,36110 
»2,-l,3,000,5,X+05»S,L,51971 
,2,2 ,3,120 ,L, 31026 

,2,2 ,3,120 ,L, 32195 

,2,2 ,3,120 ,L,584l 
,2,2 ,3,200 ,L,3980 
,<'.-<?.3,120,5,X+ll»S,L,23241 



.2,1 ,3,001 

,2,1 ,3,001 

.2,1 ,3,001 

,2,1 ,3,001 

.2,1 ,3,001 

.2,1 ,3,001 

,2,4 ,3,004 

,2,1 ,3,100 
.2,1 ,3,100 
,2,1 ,3,100 
,<i.l ,3,100 
,2,1 ,3,100 
.2,2 ,3,200 
,2,2 ,3,000 
,2,2 ,3,000 
,2,2 ,3,000 
.2,2 ,3,000 
,2,1 ,3,000 



.L,313 
,L,305 
,L,59 

,L,2049d»10+3 
,L,474 



,L, 94595 
,L,6205 
,L, 17175 
,L,3385 
,L, 11846 
tt, 103.20 
,L, 1034 
,L, 1978 
,L, 171 75 
,L, 3385 
,L, 1 1846 
,L, 10320 
,L,4634 
,L, 1796 

,L, 35698M00 + 28 
,L, 15000 
,L,9000 
,L,4340 
,L,468 



.L, 1622 
.L.4634 



,L,92161 

,L, 32368»lQ0+53, 

,L, 11500 

,L,9500 

,L,2180 



18405 
18417 
18429 
18441 
18453 
18470 
18487 
18504 
18523 
18542 
18561 
18580 
18604 
18616 
18628 
18640 
18652 
18664 
18676 
18700 
18709 
18721 
18 733 
18745 
18757 
18769 
18788 
18807 
.18826 
18845 
18864 



00012 
00012 
00012 
00012 
00017 
00017 
00017 
00019 
00019 
00019 
00019 
00024 
00012 
00012 
00012 
00012 
00012 
00012 
00019 
00014 
00012 
00012 
00012 
00012 
00012 
00019 
00019 
00019 
00019 
00019 
00012 



07550 T120 
07560 T121 
07570 T122 
07580 U23 
07590 T124 
076C0 T125 
07610*»» 
07620* 
07630»« 

07640 TTABLE DSA 



DVLC 


,2 


i , 


3,000 


,L, 


43 3 






DVLC 


,2, 


i , 


3,000 


,L, 


1533 






DVLC 


.2, 


2 , 


3,000 


,L, 


12333 


,L, 


5167 


DVLC 


.2, 


1 , 


3,000 


,L, 


159 






DVLC 


,2, 


1 , 


3,000 


»L, 


50000 






DVLC 




2 , 


3,000 


,L, 


7562 


,L, 


1916 


END 




TRANSACTIONS 




» * » 






FOLLOW I NO 


IS 


THE TRANSACTION 


LOCAT IMG 


VECTOR 


TABLE 


DSA 


n, 


T2, 


T3,T4,T5,T6 


T7,T8 


,T9,T10 







07650 OSA Tll,n2,rn,T14,T15,T16,T17,T18,Tl9, 



10876 00012 

18888 00012 

1890D 00019 

18919 00012 

lo931 00012 

18943 00019 



07660 DSA f?l.T22,T23,T24,T25,T26,T27,T28,T29, 



18965 

18970 

18975 

18980 

18985 

1899Q 

18995 

19000 

19005 

19010 

19015 

19020 

19025. 

19030 

19035 

19040 

19045 

19050 

19055 

19060 

19065 

19070 



00005 

00005 

0OO05 

00005 

00005 

00005 

00005 

00005 

00005 

00005 

00005 

0O005 

00005 

00005 

00005 

00005 

00005 

00005 

00005 

00005 

00005 

00005 



16941 

16960 

16972 

16984 

1 7008 

17032 

1 7051 

1 10 fO 

17089 

1 7106 

17123 

1 7147 

17171 

17108 

17207 

1 f219 

17231 

1 7243 

17255 

172 67 

17286 

17303 



07670 



DSA T31,T3?tT3 3,T34,T35,T36,T37,T3 8,T39,T40 



07680 



DSA T4 1,T42,T43tT44,T45,T46,T47,T48,T49,T50 



07690 



OS A T5l,T5?,T 5 3,7 54, T55 , T56, T 5 7, T5 8 , T59,T60 



7700 DSA T61,T62,T63,T64,T65,T66, T6 7, T68 , T69 , T70 



07710 DSA T7l,T7?,T73,T74,T75,T76, T7 7 , T7 8 , T79 , T80 



07720 DSA T81,T82,T83,TR4,T85,T86,T87,T88,T89, T90 



19075 


00005 


17327 


19080 


00005 


17351 


19085 


00005 


17370 


19090 


00005 


17387 


19095 


00005 


17399 


19100 


nnnns 


174IR 


19105 


^0005 


17430 


19110 


00005 


17449 


19115 


00005 


17468 


19120 


00005 


17485 


19125 


00005 


17502 


19130 


00005 


17519 


19135 


00005 


17536 


19140 


00005 


17548 


19145 


00005 


175 72 


19150 


00005 


17589 


19155 


00005 


17606 


19160 


00005 


17618 


19165 


00005 


17630 


19170 


00005 


17647 


19175 


00005 


17666 


19180 


00005 


17678 


19185 


00005 


17695 


19190 


00005 


17707 


19195 


00005 


17719 


19200 


00005 


17731 


19205 


00005 


17743 


19210 


00005 


17760 


19215 


00005 


17 777 


19220 


00005 


17796 


19225 


00005 


1 7808 


19230 


00005 


1 7820 


19235 


00005 


17832 


19243 


00005 


17844 


19245 


00005 


17856 


19250 


00005 


17875 


19255 


00005 


17892 


19260 


00005 


17911 


19265 


00005 


17923 


19270 


00005 


17935 


19275 


00005 


I 7954 


19280 


00005 


17966 


192R5 


00005 


17978 


19290 


00005 


1 7990 


19295 


00005 


18002 


19300 


00005 


18014 


19305 


00005 


18031 


19313 


00005 


18055 


19315 


00005 


18074 


19320 


00005 


18091 


19325 


00005 


18124 


19330 


00005 


18136 


19335 


00005 


18155 


19340 


00005 


18172 


19345 


00305 


18196 


19350 


00005 


18220 


19355 


00005 


18244 


19360 


00005 


18261 


19365 


00305 


18280 


19370 


00005 


18292 


19375 


00005 


18316 


19380 


00005 


18333 



07730 DSA r9i,T92,T93,T94,T95,T96,T97,T98,T99,TlOO 



0/740 DSA T101 t T 102, T 10 3 , T1Q4, r 105 , T 1 06 , T 1 07 , T 108 , T 1 09 ♦ T 1 1 



07750 OSA Till ,TU2, ril3,T114, U15,T116, T117, T118.TU9, f 120 



19385 


00005 


18345 


19390 


00005 


18357 


19395 


00005 


18369 


19400 


00005 


18381 


19405 


00005 


18393 


19410 


00005 


18405 


19415 


00005 


18417 


19420 


00005 


18429 


19425 


00005 


18441 


19430 


00005 


18453 


19435 


00005 


18470 


19440 


00005 


18487 


19*45 


00005 


18504 


19450 


00005 


18523 


19455 


00005 


18542 


19460 


00005 


18561 


19465 


00005 


18580 


19470 


00005 


18604 


19475 


00005 


18616 


19480 


00005 


18628 


19435 


00005 


18640 


19490 


00005 


18652 


19495 


00005 


18664 


19500 


00005 


18676 


19505 


00005 


18709 


19510 


00005 


18721 


19515 


00035 


18733 


19520 


00005 


18745 


19525 


00005 


18757 


19530 


00005 


18769 


19535 


00005 


18788 









19540 


00005 


18807 








19545 


00005 


18826 








19550 


00005 


18845 








19555 


00005 


18864 








19560 


00005 


18876 


07760 DSA T121,T122,ri23,T124,Tl25 






19565 


00005 


18888 








19570 


00005 


18900 








195 75 


00005 


18919 








19580 


00005 


18931 








19585 


00005 


18943 


07770»« T R A 1 1 1 " IN TRANSACT \ Ori TABLE 












07780 DC 5,« 






19590 


00005 




07790 PAC It',. 






19593 


00002 




078C0 X5 OS ,»-l 






19592 


00001 




07810»«» THE PROBLEM HEADER St' TOR »»• 












07820 HE DDR OS ,19600 






19603 


00000 




07830 DORG t-EDDR 






19600 






07840* 












07850* TH£ FOLLOWIMC, ARE RELOCATED BY WISAL BUT 


NOT 


DESTROYED 








7860* 












078 70 HE DOS A DSA I $1 til , I T AOL 1- , t.DNM I , AtiNM 1 , ARLH 1 , L T ABL t , 


GL TUT 


,A«rOT,TT ABLE, 125 




00005 


04927 








19609 


00005 


08910 








14614 


00005 


09244 








19619 


00005 


1 5 95 








19624 


00005 


10975 








19629 


00005 


11688 








19634 


00005 


15201 








19639 


00005 


16559 








19644 


00005 


18965 








19649 


00005 


00125 



ISLPl IS 



iTAPT OF INCOME ST. AND HAL . SHEET IAPFLS 



07890* 


I TABLE 


IS 


VECTOR TABLE FROM I . S. +B.S. LABELS TO G.L.TOTS 


07900* 


LDNM1 


IS 


START OF 


G.L. CONSTANTS 


07^10* 


ARNM1 


IS 


START OF 


A.R. CONSTANTS 


07920* 


ARLB1 


is 


START OF 


A.R. LABELS 


07930* 


LT ABLE 


IS 


START OF 


VECTOR TABLE TO G.L. LABELS 


07940* 


GLTOT 


IS 


START OF 


G.L. UPDATABLE TOTALS 


07950* 


ARTOT 


IS 


START OF 


A.R. UPDATABLE TOTALS 


07960* 


TTABLE 


IS 


START OF 


TRANSACTIONS VECTOR TABLE 


07970* 


125 IS 




NO. OF TRANSACTIONS IN THIS PROBLEM 



07980* 
07990* 
08000* 

08010 HEDDSB OSA 



THE FOLLOWING ARE USED BY WISAL, MAY BE DESTROYED 
Yl,Y2,Y3 f Y4,Y5,X5 



08020 LDSA 


OVLC 


f 2,L 


08030* 


Yl 


IS 


08040* 


Y2 


IS 


08050* 


Y3 


IS 


08060* 


Y4 


IS 


08070* 


Y5 


IS 


08080* 


X5 


IS 


08090* 


L 


IS 



08100* 
08110* 
08120* 
08130* 
08140* 



START OF I.S. + B.S. BLOCK 

START OF G.L. + A.R. CONSTANTS BLOCK 

START OF G.L. LABELS BLOCK 

START OF UPDATABLE BLOCK 

START OF TRANSACTIONS BLOCK 

END OF TRANSACTIONS BLOCK 

LENGTH OF A WISAL FIELD 



DURING THE FIRST WISAL TRA-TCD, THIS WHOLE PROBLEM IS 

CALLED INTO CORE IN CORE IMAGE FORMAT 
IT IS THEN WRITTEN OUT TO THE WORK CYLINDERS AS FOLLOWS- 



19654 
19659 
19664 
19669 
19674 
19679 
19681 



00005 04926 

00005 09236 

00005 11682 

00005 15070 

00005 16938 

00005 19592 
00002 



rs 



08150* 
08160* 
08170* 
08180* 
08190* 
08200* 
08210* 
08220* 
08230* 
08240* 
08250 



08260 WK 

08270 DATEP 

08280 MONTH 

08290* 

083C0* 

08310* 

08320* 

08330* 

08340 



G.L. LABEL BLOCK, VECTORS RELOCATED, IS WRITTEN OUT FOR PHASE B USE 
TRANSACTION BLOCK, VECTORS RELOCATED, - FOR PHASE C USE 
G.L. ♦ A.R. LABELS + CONSTANTS FOR PHASE Dl USE 
I.S. ♦ 8.S. LABELS FOR PHASE D2 USE 

AND, AFTER POSSIBLE UPDATING BY »PRECODE RECORDS, 

THE UPDATABLE G.L. AND A.R. TOTALS ARE WRITTEN OUT 

FOR USE OF PHASES C, Dl, D2 
THE ASSOCIATED SWITCH SETTINGS ARE ALSO WRITTEN OUT 



DS A W PC, DATEP, MONTH, DATEP 



DSAC ?3, THE WHOLESALE PAPER CO. 

DSAC 33, APRIL 30, 1964 

DSAC 33, MONTH ENDED APRIL 30, 1964 



THESE HEADING TITLES 
SHOULD ALL BE 
33 ALPHA LONG 



IF YOU DO NOT WISH TO HAVE THE SAME THING FOR THE 
THIRD LINE OF G.L. AND B.S. HEADINGS, AS DATEP ABOVE, 
YOU WILL HAVE TO CHANGE HEDDR TO 19500 IN THIS AND INWISAL 

DEND 796 



19686 00005 19767 

19691 00005 19833 

19696 00005 19899 

19701 00005 19833 

19767 00066 

19833 00066 

19899 00066 



00796 



SYMBOL 



nriUl*Ur. 


3 54 6 




1 394 




1 U D W flu 




T I T S A V 


02891 


TITLES 


TCI QIC 
1 rLOl i 


8 2 34 


T F L / B D 


Uo JVU 


T F AR L 8 


SET SWS 


08 20 R 


□ o a d r M 
t\ r A r\ L IN 


09163 


R M S Z> AN 




U J DC. J 


r> u q c d C 


03322 


QUACA 1 

rnfl oA 1 


OU T PU T 


U 3 UO J 


OUT JOT 


9962 


fl 1 1 T 1 T M 
U U 1 L 1 (N 




10758 


Ml 1M A M T 


^ i o c 






07010 




07 335 


MOAUTC 

IN U A n 1 b 




00 796 


Ml DO C Ul 


02523 


1 CUMCM 


U UW £ S T 


nnriT 


t. *!jC WD 


n u n on 
U O U " v 


L A S WOK 


I SLOOP 


noion 

UO J7U 


[ Srt T A B 


08 293 


I NC S T A 


u c ri n c a 


1 9 604 


G0GGG0 


031 66 


GLLUQP 


F I NL 7. E 


07822 




3 744 


E NDWDS 


DUPL A8 


7926 


D S ti >n L B 


095 76 


DPUNCM 


CREDIT 


0896 1 


CH0VL p 


3130 


C CZER0 


BEGND2 


08006 


BEG INC 


094 2 


B EG I NB 


B a D AC T 


10875 


A r r T 4 


03 193 


A R TO T 3 


ARLQOP 


08966 


AMDS A2 


104 3 7 


A L PH AN 


ADN I NC 


07 841 


ACT.' 32 


08019 


A C T M E S 


ADO 


08926 


A0 J F 


02 809 


a n m r m 


AGCGO 


08484 


AM B 


f 5 6 2 


AMB A 


AM FND 


10262 


A ^ M f S 


108 3 7 


AMT 


ARBNF 


09026 


AR l. A 


J 3 9 1 6 


ART B 


A4DS A 


04014 


A 4 1 C 


3 908 


A 50 S A 


RADRP 


0968 I 


B A L S H 


0962 5 


BB 2 


B I NG 


10605 


B I \GL) 


09856 


B L L I N 


C A F ND 


09 716 




08128 


CARD 


C C A 2 


03 311 


CC ^* 


71 94 


c f" n i 


CL AB 


07 738 


CL ABI. 


09404 


C L D S A 


C PC 


03 164 


CM <♦ 2 


084 70 


C N T 


CCNT 


07 894 


C R f NO 


09 432 


CR I T 1 


C S F N D 


10614 


C T CD 


09480 


r 1 1 c t 


C 1 T 


10612 


C2 T 


10619 


C 2 3D I 


C 70B 


10 790 


U d r N U 


09412 


DC S W 


DEB I T 




D I SC 


09068 


DK AD J 


D0AR3 


09194 


DCAR4 


09278 


D0FL3 


D1DSA 


10190 


Dl TC0 


10000 


D2DSA 


EDAR2 


09182 


EDCM 


07078 


ED&L1 


EDIT 


06938 


t D I r a 


07371 


EDITE 


6NDA1 


03880 


EN OB 


11033 


ENDC 


ENDRT 


10806 


EWC 


02321 


FLD1 


FLD4 


7991 


FLU3 


07996 


FLFX 


FLY 


10335 


GETA2 


03060 


GETN0 


GLOUT 


09626 


GG0F 


10477 


G0T0F 



HEDDR 


19600 


H E M 


09419 


HDLAB 


IFNUM 


08518 


INPIT 


P?7Sl 


INSAD 


ISb7 


0828.; 


I SC 




I SLAB 


KK 


09670 


KL 


09528 


KM 


KP 


09328 


KO 


09 308 


KR 


KU 


09228 


KV 


09208 


KW 


KZ 


09056 


KO 


08603 


Kl 


K4 


08 716 


K41 


07850 


K5 


K61 


07536 


K7 


8 968 


K71 


L 


00007 


LBOSA 


1 1 164 


LCSW 


LNTH 


03000 


LPRD 


07206 


LPFND 


MINUS 


09 128 


MM ; S 


08246 


MNFNO 


NOEND 


08874 


no on 


07506 


NOMMS 


NSUBL 


08858 


N T I T C 


07843 


NU AD 


OBDSA 


10733 


OBJ 


10821 


08JAD 


OMES 


03 792 


00 G 


10 37 > 


ORG I 


UUTC3 


7170 


ou rtu 


07186 


0VBM2 


OVPES 


03047 


Pl.FND 


09228 


PLUS 


PPSW 


0252? 


P3»-FK 


08164 


PSW 




UO02i 


".h .~.K 


18.0 


RBNR 


RETA1 


04 026 


rm;hk 


03572 


RMtRK 


RPDSA 


09 596 


pr\n 


09612 


RSAMT 


SCAN 


00 662 


s f «: 5 


09896 


SEC 3 


SGSW 


03054 


SGSW 2 


03055 


SLMtS 


S.NEG 


09932 


SPLUS 


09145 


SPOS 


STCR2 


10654 


ST OR 3 


10661 


SURAD 


TBNR 


08870 


riv;x 


10283 


TCDB 


TDM J 


08264 


TDN'TR 


082 72 


TDNUM 


TF LB 


10510 


Tf • 02 


08210 


TFNO 


TITLC 


07831 


T I 1 L J 


07580 


TOTCR 


TRA2 


03208 


T K A 4 


3 9 6 8 


TRA5 


TRSW 


08 100 


Tw..rc 


094 i 


UPCOL 


VKADJ 


02786 


VO< .'. 


0905 3 


WC 


WHCP 


10698 


W I ,-iM 


09 76 I 


WLRC 


XREFC 


07821 


14-> 


10805 





TABLE 



08463 


1 HUnC J 


08409 


T T A R 5 


08215 




T I T 1 B F 


070 74 


T I T 1 A 9 
1 t 1 L A C 


03197 


09050 


JUrlWn 1 


09046 


CMf M||C 


091 54 


03 860 


1 1 T An 1 


025 30 


PR I NT 1 


03312 




fl \tautz c 

U V Dnt J 


1UU r j 


U T S W L 




7806 




04 13? 


f IMP Q A 1 


U jOOO 


03313 


MHT 1 IP w 




IN U O rv I r 


0832 8 


09057 


M L B M E S 




MUR Y E T 


08970 


0692 3 


L SCANS 


08 3 02 


1 O A O C M 

L r* A K t "<i 




07 706 


L A BCHK 


069 3 8 


^ toAUn j 


0846 7 


08 165 


LI c n 1 T M 

nt UL 1 N 


07480 


HtlJUja 


19654 


08282 


Gc T AD J 


02 61B 


c no t uf 
rUK I HL 


7888 


02 863 


ENDBAL 


08099 


U2Z bKU 


10640 


03 335 


I 5 AMT 


090 1 4 


DCDSA 2 


09 5 7 1 


08115 


8 T I TL2 


073 5 5 


B T I TL 1 


0725 5 


10938 


B EGBA L 


080 3 7 


B A D L A B 


79 5 9 


08 186 


A R T u T 2 


08179 


AR TOT 1 


08172 


10819 


A 1 1 C\t 1 M 

ALL DUN 


1 00 1 


A n M M A 'J) 


0320 7 


0993 3 


AC L A B 


07502 


AD 


0692 9 


(J 746 5 


A DRE G 


108 28 


AD V 


08596 


10 638 


A M B2 


090 7 B 


AM D S A 


10417 




A M TN 


104 54 






rf 2 8 1 






A C T C 

A J 1 O 


n7Q7 1 
U(7I 1 


040 1 


A _> 1 C u 


03 9 16 


B A D DC 


108 3 7 




B DL 


Od 1 3d 


1 1 n ki m 

13 U IN !X 


7602 


07 3 74 


Bl_ SlJ P 


UoUfJU 


BN F 2 


r\T -! 




C A SH 


9 8 B 


\tf\C. 


03220 


0809 1 


C D VS W 


030 5 7 


rtnn 
L. r UU 


026 62 


09598 


C L R 


03 345 


C L R SN 


0966 


08 2 3 5 


C N TB D 


0/254 


COL 


0869 7 


02 52 6 


C R 1 T 3 


02 52 9 


C R S 


07780 


rtQAl 1 
U^U1 I 


C Z fc R U 


108 23 


r 1 


86 86 


C 72 1 3 


C 3 F 


10626 


C 4 T 


10633 


0305 2 


D D 


02 712 


A f rt 


025/8 


02618 


DLMES 


08021 


00 


09366 


08510 


DOFL4 


08582 


DSFNO 


09736 


10745 


D2TCD 


10662 


EDAR1 


09098 


08438 


bDGl ? 


08498 


hOIS 


08138 


07341 


ED I TF 


0731 1 


EDI TO 


08583 


0*419 


ENDD1 


09625 


hNDD2 


10661 


79 76 


F L 02 


0798 1 


FLU3 


0798 6 


077? 5 


F L F Y 


1029 1 


FLF2 


077 71 


04226 


G L H N F 


08 366 


GLEOG 


09999 


09?68 


H A V IT 


08718 


H 3 A 


03880 


1 79H 


HQ SW 


10404 


I FEND 


08 794 


V!lt 


INST 


108 29 


I S 6NF 


08114 


r 466 


K B A 


08 4 34 


K J 


0962 6 


0942 A 


KN 


09 3 68 


KO 


09348 


\) * c ti " 


K S 


09268 


K T 


09248 


09152 




09 132 


I/t 


09112 


0862 8 


K 2 




K 3 


08672 


U O O '-' O 


k ^ 1 


07 70 8 




UclVUU 


7436 


K 8 


u ? 


K9 




03326 




19681 


L I T S 


09 005 


("nil 7 9 


L P jW 




L S T E 


072 1 4 


09248 


rnUNN > 


10223 


NNNN 


104 74 




ri U r K U 


100 7 2 


NOTE 


10559 


U 2 5 6 5 


NU L A 11 


08 044 


NXT 


09378 


10834 


B M C S 


I OH 3 7 


OBSW 


0305 3 


026 1 2 


OU TC 


7090 


uu re 2 


715 8 


1 L 7 7 


V E R B 


10028 


OVL AP 


03002 


09113 


P R I N 


028 36 


PRINT 


3 3 04 


03 5 82 


PUNC H 


03 32 7 


QC END 


0828 4 


3656 


R B 


0B6 1 1 


READ 


03424 


U 3 6 1 6 


RML > 


034R 1 


R N T Y 


04218 


09 8 2 8 




00021 


^ A V A 1 


1 9900 




bhrR 




S F S W 


03 05 9 


Agile 






S M 7 


03618 




S S uP p 


08494 


S T OR 1 


1064 / 


09365 


SWLLL 


095 24 


S2 


03582 


11034 


TCMC 


07102 


TDEO 


07133 


08554 


TDX 


09456 


TEMPC 


07880 


08766 


TIMtS 


08007 


T I TLB 


07455 


08057 


TOTDB 


08077 


T R A 1 


03834 


03964 


TR LAB 


07798 


TRSC 


07628 


0860? 


UPS? 


03630 


VCFND 


09 756 


0230? 


WCDD 


02604 


WHATP 


04112 


0?0?1. 


WPRB 


041 5 3 


XREFB 


07073 



00010****** 

00020* 
00030* 
00040* 
00050* 
00060* 
00070* 
00080* 
00090* 
00100* 

00110* » 
00 120 ******** ************************************************ ***'********** 



WISAL — WISCONSIN-S ACCOUNTING LANGUAGE 

PROCESSOR FOR 1620 MODEL 1 OR 2 WITH 1311 DISK 
NO SPECIAL FEATURES 
CARD OR PRINTER OUTPUT, CARD INPUT 



CRAIG MACKENNA 



UNIVERSITY OF WISCONSIN 
JULY 1, 1966 



MILWAUKEE 



001 30* 












00140* 


SYMROLIC PARAMETERS 








00150* 












00160* 


THE 


FOLLOWING MAY BE VARIED INDEPENDENTLY 








00170 L 


OS 


,7, LENGTH OF WISAL FIELD 


00007 


00003 




00180 LNTH 


OS 


,3000, CORE ALLOTED FOR STUDENT PROGRAMS, LOG ENTRYS 


03003 


00000 




00190 HEDDR 


DS 


,19600, CORE ADDRESS STARTING PROBLEM HEADER 


19603 


30300 




00200 LOWEST 


OS 


,2302, LOWEST CORE USED — BEGINNING DORG — DDA-S 


02302 


00003 




00210 MONCAL 


OS 


,796, THIS SHOULD NOT BE VARIED TOD INDEPENDENTLY 


00796 


30003 




00220* 












00230* 


OTHER DERIVED SYMBOLS 








00240 R 


DS 


,i»L, LENGTH OF A LEDGER ACCOUNT IN CONSTANT BLOCK 


00021 


poppo 




00250 S 


DS 


,3*L, LENGTH OF A LEDGER ACCOUNT IN JPDA TABLE BLOCK 


00021 


00300 




00260 HEDDSA 


DS 


, HEDDR+4 


19604 


00000 




00270 HED0S8 


DS 


,HEDDSA+10*5 


19654 


30000 




00280 LDSA 


DS 


,HEDDSB+5»5+2 


19681 


00003 




00290 TITLES 


DS 


,LDSA+5 


19686 


00000 




00300 


DORG 


LOWEST 


02302 






00310 EWC 


DS B 


20,11,, TRANSFER ODA AREA 


32321 


00220 


62. 


00320 WC 


DS 


,EWC-19 


02302 


00000 




00330* 












00340* PARAMETER. SWITCHES AND ALLOWABLE ERROR COUNTS 








00350* 


MAY 


BE CHANGED IN OBJECT OR SOURCE BY USER 








00360* 












00370 PRSW 


DC 


1,1,, OSC 1,0 IF :iO PRINTER 


02522 


00301 




0Q380 MLPRSW 


OSC 


1,0,, 1 IF MULTIPLE PROBLEMS 


02523 


30331 




00390 CRITl 


DC 


3,10, , ALLOWABLE LANGUAGE ERRORS 


02526 


00333 




00400 CRIT3 


DC 


3, 15, , ALLOWABLE REFERENCE ERR3RS 


32529 


00333 




00410* 












00420* 


ROUTINE TO WRITE PROBLEM AND PROCESSOR BLOCKS TO WKCYLS 








00430* 












00440 PUTADJ 


PUT 


WCDD,RBC 


32533 
02542 


16 03565 
49 00523 


32553 
32634 


00450 


TFM 


~+l 3,*-* 


02554 


16 02315 


33333 


00460 NUAD 


DS 


, * 


02565 


003Q3 




00470 


AM 


•+18,20,10 


02566 


11 0258't 


33323 


00480 DDATR 


TR 


WC , WC , 2 


02579 


31 32332 


32332 


00490 


A 


WC+5,WC+8 


32593 


21 02337 


32313 


00500 


BB2 




32632 


42 33330 


33333 


00510 WCOO 


OD 


,WC,,,A, WISAL WILL UPDATE TO WORK CYLINDERS ITSELF 


32604 


00332 22 










32636 


30335 32332 








32611 


00301 • 




00520******* 


***«**•«»»»*•»**#«#«»•«**«*»##*»»»•«*#*##»«*••#»#»***»»**»*»»» 








00530* 




* 








00540* 


PHASE Al — CALL LOAO THE PROBLEM * 








00550* 




WRITE IT OUT TO WORK CYLINDERS IN BLOCKS » 








00560* 




RELOCATED, AND CHECK FOR CORE OVERLAP • 








00570* 




» 









c 



5 H •*•*******•»*•••»»***•****** * *******»****#********** 

00590* 



»»*»»»#*#*»»* 



00600* 




PHASE Al ROUTINE TO COMPUTE A NEW CORE ADDRESS 










00610* 




OF A PROBLEM BLOCK GIVEN THE LINKAGE 










006 20* 














00630* 




BTM DKADJ, **16 










00640* 




OSA OLDHI,OLDLO»NUHI 










00650* 




WHERE OLDHI IS THE ADDRESS OF THE PRESENT UPPER LIMIT 










00660* 




OLDLO IS THE ADDRESS OF THE PRESENT LO-CORE 










00670* 




NUHI IS THE ADDRESS OF THE EXECUTION UPPER LIMIT 










00680* 














00690 ORGI 


NOP 




02612 


41 


D3D33 


30003 


OOfOO 


DORG *-5 


02618 








00710 DKADJ 


SF 


»- I 


02613 


32 


32617 


33333 


00720 


TF 


WC+10.DKADJ-1, 11 


32633 


26 


02312 


32617 


00 730 


SM 


DKADJ-1,5, 10 


02642 


12 


32617 


33335 


00740 


S 


WC+ lu, DKAO J- 1 , 1 1 


3265'+ 


22 


02312 


3 2 M 7 


00750 


TF 


WC * 1 3 1 DKADJ- 1 1 11 


32666 


26 


32 315 


32617 


00760 


AM 


WC+8,1,10, LENGTH OF BLOCK UP TO NEXT HUNDRED 


02678 


1 1 


02310 


00331 


00770 


SM 


CKADJ-1,5, 10 


02693 


12 


02617 


033 35 


00780 


TF 


NU AD » DKADJ- 1 , 1 1 


02702 


26 


02565 


02 & 1 7 


00790 


S 


NUAD-2.WC+8 


02714 


22 


02 563 


02310 


00800 


TF 


AD J F , NUAD 


02726 


26 


02 809 


02565 


ooaio 


S 


AOJF.WC+13 


02 738 


22 


02809 


02315 


00820 


CF 


CKADJ-l 


02753 


5 J 


0261 7 


00030 


00830 


AM 


CKAOJ-1,2,10 


32762 


1 1 


32617 


00002 


00840 


B 


CK ADJ- I , , 6 


02 774 


49 


0261 7 


00333 


00850* 














00860* 




ROUTINE TO RELOCATE A VECTOR TABLE FROM THE 










00870* 




PARAMETERS CALCULATED BY THE ABOVE 










00880* 














00890 VKADJ 


TF 


*+18,*-l,ll 


02786 


26 


02804 


02785 


00900 


AM 


»—»,♦—# 


02798 


u 


00000 


00330 



19 



00910 ADJ F 


ns 




02809 


00000 








00920 


AM 


«--6,5, 10 


02810 


11 02804 


00335 


00930 


BNR 


»-2V,*-18, 11 


02822 


45 02798 


02834 


00940 


BB2 




02834 








42 00000 


03330 


00950* 












00960* 


MAINLINE PHASE Al, COMING IN F ROM BACK PART OF Al 








00970* 




CALL LOAD THE PROBLEM 








00980 PRIN 


CALL 


LOAD, 361,, »*CHANGE IF PROBLEM NOT DIM NU. 361** 


02836 


16 00565 


02855 








02848 


49 00716 


00330 








02855 


00007 3200361 








02862 


00001 • 




0Q990* 


NOW CHECK PKiajLfM HEADER 








OlOOO 


CM 


LDSA,L,10 


02864 


14 19681 


00337 


01010 


RE 


CHOVLP,,, IS L THE SAME 


028 76 


46 031 30 


01 200 


01020 


RCTY 




02888 


34 00003 






00132 


01030 


WAl'Y 


WLRC 


02900 


30 02921 


30130 


01040 


CALL 


tXIT 


02912 


49 00796 


003 3 


01050 WLRC 


OAC 


41.WISAL VS. PROBLEM FIELD LENGTh NUN-MATCH' 


02921 


0008? 




01060 OVLAP 


TF 


OVMES+80, *- 1 


03002 


26 03127 


3 3 3 31 


010 70 


RCTY 




3014 


34 OOOOO 


0013 2 


01080 


W A T Y 


( v:- t s 


03026 


39 03047 


001-30 


01090 


CALL 


! X i T 


3038 


49 00796 


00030 


01100 OVMES 


OAC 


42 , CORE OVERLAP, PROBLEM WITH WlSAL PHASE ..' 


03047 


00084 




01 1 10 CHOVLP 


CM 


HEQDSB, ENDA 1 


03133 


14 19654 


33830 


01120 


RH 


GOCOGO 


03142 


46 03166 


311 3 J 


01130 


BTM 


C V L A P , 4 I 71,8, CHECKKY-STOPPY IF REAL BAD 


03154 


17 03332 


341 n 


01140* 












01150* 


COMPUTC PARAMETERS AND WRITE OUT PROBLEM MACROBLOCKS 








01160* 












01170 GOGUGO 


HTM 


CKAOJ, »+ l^j, , ESTABLISH PARAMS. UPDATABLL BLOCK 


03166 


I 7 02618 


03132 


01 180 


OS A 


H EDDSP + 4* 5 , Hf 00 SB ♦ 3* 5 , HDS A 


03182 


00005 19674 



01190 

01200 

01210 

01220* 

012 30» 

01240* 

01250* 

01260 

01270 



01280 
01290 
01300 
01310 
01320 
01330 
01340 



01350 
01360 
01370 
01380 
01390 
014C0 
01410 
01420 
01430 



TF 

BTM 

BT 



SM7+11,ADJF,, 
VKADJ.HEDDSA+5,, 
PUTAOJ, PUTADJ-l 



SAVE UPDATABLE BLOCK ADJUSTMENT 
RELOCATE B.S..I.S. LABELS TABLE 



THUS UPDATABLE BLOCK IS THE FIRST PERMANENT DDA IN THE 
TABLE, MAY BE OVERLAYED DUE TO »PRECODE CONTROL RECORDS 



BTM 
OS A 



A 
A 

BT 

A 

A 

BTM 

OSA 



BTM 

TF 

A 

•BT 
TF 
TF W 
SM 
BTM 
BTM 



CKADJ, *+l6, , 
HEDDSB+5,HEDDSB,WC+20+13 



COMPUTE PARAMS. B.S. , I. S. LABELS 



HEDDSA+6»5,SM7+11, , 
HEDDSA+7*5,SM7+11, , 
PUTADJ.PUTADJ-l, , 
t-EDDSA , ADJF» , 
HEDDSA+5, ADJF 
DKADJ, •♦16,, 



WHOOPS — UPDATE HEADER DSA-S 

FOR UPDATABLE BLOCK 
WRITE OUT I.S., B.S. LABELS BLOCK 
FOR PHASE D2 USE 



NOW G. L. LABELS FOR PHASE fi 



KEDDSB*3»5.,HEDD'Sfl + 2*5 f HDSA 



VKADJ,HEDDSA+5«5 

HEDDSB,HEDDSA+5»5, , 

FEDDSR, ADJF, , 

PUTA0J,PUTADJ-1, , 

•+35.ADJF 

fibJr ,0 

ADJF,»-» 

VKADJ,HEDDSA+5*5, , 
CKADJ » *+ 16 



USE HEDDSB IN THE HEADER 
TO SAVE ADJUSTED START OF 
G. L. LABELS FOR PHASE B 



UNRELOCATE VECTORS 



03187 00005 19669 
03192 00005 03880 
03194 26 03629 02809 
03206 17 02786 19609 
03218 27 02530 02529 



03230 
03246 
03251 
03256 
03258 
03270 
03282 
03294 
03306 
03318 
03334 
03339 
03344 
03346 
03358 
03370 
03382 
03394 
03406 
03418 
03430 
03442 



17 02618 03246 
00005 19659 
00005 19654 
00005 02335 
21 19634 03629 
21 19639 03629 
27 02530 02529 
21 19604 02809 
21 19609 02B09 
17 02618 03334 
00005 19669 
00005 19664 
00005 03880 
17 02786 19629 

26 19654 19629 
21 19654 02809 

27 02530 02529 
26 03429 02809 

16 02809 OOOOQ 
12 02809 00000 

17 02786 19629 
17 02618 03458 

CI 



01440 




DSA 


HEDDSB+3*5,HEDDSB+5,WC+20+13 


03458 


00005 19669 












03463 


00005 19659 












03468 


00005 02335 


01450 




BTM 


VKADJ,HEDDSA+5*5 




03470 


17 


02786 


19629 


01460 




A 


HEDDSA+2*5,ADJF 




03482 


21 


19614 


02839 


01470 




A 


HEDDSA+3*5, ADJF, , 


UPDATE HEADER DSA-S 


03494 


21 


19619 


02809 


01480 




A 


HED0SA+4*5,ADJF, , 


FOR PHASE Dl USE 


03506 


21 


19624 


02809 


01490 




A 


HtDDSA+5»5, ADJF 




03518 


21 


19629 


02809 


01500 




BT 


PUTADJ .PUTADJ-l 




03530 


27 


02530 


02529 


01510 




BTM 


CKADJ , *+ 16 , , 


NOW FOR THE TRANSACTIONS BLOCK 


03542 


17 


02618 


03558 


01520 




DSA 


hEDDSB+5*5,HE0DSB+4»5,WC+20+13 


03558 


00005 19679 












03563 


00005 19674 












03568 


00005 02335 


01530 




TF 


*+23,HED0SA+8*5, , 


TRANSACTIONS BLOCK REQUIRES 


03570 


26 


03593 


19644 


01540 


S2 


TF 


*+23,»-», , 


SPECIAL RELOCATION 


03582 


26 


03605 


00000 


01550 


BNF2 


BNF 


UPS2, *-», , 


TRANSACTIONS HAVING SUBLEDGER HAVE FLAG 


03594 


44 


03630 


00000 


01560 




AM 


fiNF2+ll,8, 10 




03606 


11 


03605 


00038 


01570 


SM7 


AM 


8NF2+ll,*-*,6 




03618 


11 


03605 


00000 


01580 


UPS2 


A 


S2+11,ADJF,6 




03630 


21 


03593 


02809 


01590 




AM 


S2+ll,5,10 




03642 


11 


03593 


00005 


01600 




BNR 


S2.S2+11, 11 




03654 


45 


03582 


03593 


01610 




BT 


PIITADJ, PUTADJ- l 




03666 


27 


02530 


02529 


01620 




A 


l*EDDSA + 8*5»ADJF 




03678 


21 


19644 


02809 


01630* 


















01640» 




NOW CHECK FOR WISAL 


PHASE VS. PRUBLEM BLOCK OVERLAPS 










01650* 


















01660 




CM 


WC+2*20+13,ENDD2 




03690 


14 


02355 


10661 


01670 




BH 


* + 24 




03702 


46 


03726 


01100 


01680 




BTM 


CVLAP, 4472,8 




03714 


17 


03002 


04472 


01690 




CM 


WC +3*20+1 3, ENDB 




03726 


14 


02375 


11033 


01700 




OH 


» + 24 




03738 


46 


03762 


01100 



17 



01710 


RTM 


CVL AP , 4200 , 8 


03750 


17 


03002 


04200 


01720 


CM 


WC+4*20+l 3 , EN0D1 


03762 


14 


02395 


09625 


01 730 


OH 


• ♦ ?4 


03774 


46 


03798 


01130 


01740 


BTM 


CVL AP , 447 1 , 8 


03786 


1 7 


03002 


044 71 


01 750 


CM 


wC+5»20+l 3»ENDC 


03798 


14 


02415 


094 I 9 


01760 


RH 


* + 24 


03810 


46 


03834 


01130 


0L770 


Bjy 


QVL AP , 4300 , 8 


03822 


17 


03002 


04300 


01780 TRA1 


TRA 


RACK TO DO PHASE A2 


03834 


16 


00565 


03853 








03846 


49 


00716 


00300 








03853 


00002 22 










03855 


00005 03861 








03860 


00001 • 










03861 


00006 119783 








0386 7 


00003 003 








03870 


00006 00000* 


1 790» 














018C0* 


p 


ROBLEM NOW SECURELY TIEO DOWN 










01810* 














01820 HDS A 


DS A 


\~ t. f) Q q 


03880 


00005 19600 


01830 ENDA1 


DS 


,», PRUHLEM CA,J CLOBBER ANYWHERE RCLOW HERE 


03880 


00000 




01840 C Nt S A 1 


nc 


6, 100001 


03886 


00006 




01850 SAVA1 


OS 


,19900 


19900 


00000 




1860* 














01870* 


WISAL STARTS EXECUTION HERE 










1 8 8 * 














01890 PHASA1 


TD 


GAVAl.300,2, SAVE 300-349 


03888 


2 5 


- 

1 9900 


00 330 


01900 


A 


•-1.0NESAI 


03900. 


21 


03899 


03886 


01910 


CM 


PHASAI+6.SAVAI+50 


03912 


14 


03894 


199 50 


01920 


BL 


PHASAl 


03924 


47 


03888 


01300 


01930 


TDM 


300,1,, RIG ADD TABLE MAYBE 


03936 


15 


00300 


00331 


1940 


TFM 


309,12,711, RIG IX REGS MAYBE 


03948 


16 


00309 


00312 
















01950 


TF 


349, 309 


03960 


26 


00349 


00339 


1 960 


AM 


•+11,0,10 


39 72 


11 


03983 


00000 


01970 


BD 


RE1AI,»-U, BE THIS A LIL OL MOD 1 




43 


04028 


0398 } 


1980 


60 


« + 12,9 


03996 


60 


04008 


00039 


01990 


67 


'+20,, 5, OR A FANCY MOO 2 MIT INDEX REGISTERS 


04008 


49 


04028 


00000 


0200O 


60 


*+12,0 


040 1 6 


60 


04028 


00330 


02010 fUTAl 


ro 


3no, S4VA1.2, PUT 300-349 BACK 


04028 


25 


00300 


19930 


02020 


A 


»-l,ONESAl 


04040 


21 


04039 


03886 


n 2 3 


CM 


Rb T A 1+6, 349 


04052 


14 


04034 


00349 


02040 


$K\- 


rt L T A 1 




47 


04 02 3 


01100 


02050 


TR 


wC , OR 1 GDA 




31 


02302 


04132 


02060 


TD 


WC.422,, GET LOCATION OF WORK CYLINDERS 




25 


02302 


00422 


02070 


TF 


IC+3,425,, MONITOR COULD DO THIS 


04 1 00 


26 


02305 


00425 


02080* 














02090* 


ERR;.R IARLE not full, are there multiple problems 










02100* 














02110 WfATP 


80 


GETNO, MLPRSW, , DIGIT IN POS. 2 OF SECTOR FOR Y£S 


04112 


43 


04226 


02523 


02120 


H 7 


PC IN 


04124 


49 


02836 


00000 


02130 OR 1 GO A 


DDA 


,0,0,0,0 


04132 


00006 000003 








04 138 


00003 000 










04141 


00005 00000 


02140 


OS A 


MONCAL 


04150 


00005 00796 


02150 


nc 


l , • 


04151 


00001 




02160 WPRrS 


[) AC 


33, ENTER 4-OIGIT DIM NO. OF PROBLEM * 


04153 


00066 




02170 RNTY 


OTM 


,GE INfi+2 


04218 


00005 04228 








04223 


00033 OOG 




02180 GET NO 


RCTY 


, ,2 


04226 


34 


00000 


001 )2 


02190 


WA1 V 




04238 


3 9 


04153 


00130 


022C0 


RC 1 Y 




04253 


34 


00330 


001 J 2 


02210 


GET 


U N T Y 


04262 


16 


00565 


042rf5 



04274 49 00566 04218 



02220 




BC4 


GETNO 




04286 


46 04226 


00400 


02230 




SF 


GETNO+2 




04298 


32 04228 


00000 


02240 




TF 


PRIN*25, 


GETNO+5 


04310 


26 02861 


04231 


02250 




B7 


PRIN 




04322 


49 02836 


ooooo 


02260 




TCC 


PHASA1 




03888 






















02280* 






» 








02290* 


PHASE A2 — 


READ CONTROL CARDS » 








02300* 






DETERMINE SWS • 








02310* 








DETERMINE OUTPUT ROUTINE • 








02320* 






• 
























02 340* 
















02350 




DORG 


CKADJ, 


LEAVE PUTADJ THERE 


02616 






02360 


GET AD J 


RNF 


CFDD,*-1 


,, PERMANENT DISK INPUT ROUTINE 


02618 


44 02662 


02617 


02370 




CF 


GETAOJ-1 




02630 


33 02617 


00000 


023B0 




SF 


CD*1 




02642 


32 02713 


OOOOO 


0239J 




37 


CFDO+12 




02654. 


49 02674 


ooooo 


02400 


CFDD 


CF 


CD+1 




02662 


33 02713 


ooooo 


02410 




TF 


CD+61GETAOJ-I 


02674 


26 02718 


0261 7 


02420 




flfT 


LID 




02686 


16 00565 


02709 












02698 


49 00566 


02712 


024 30 




BR? 






02710 


42 00000 


OOOOO 


02440 


DD 


DSC 


8,2200000' 


02712 


00008 




02450 


I NPUT 


DAC 


40, 


,, PERMANENT 


02721 


00080 




02460 




DAC 


Mi 


',, CARD-IN AREA 


02801 


00082 




02470 


CARD 


DC A 


, INPUT 




02882 


00005 02721 












02887 


00003 10G 




02480 


TITSAV 


DAC 


/,0, 


,,SAVE TITLE 


02891 


00080 




02490 




DSC 


40,0 




02970 


00040 




02500 




DSC 


42,0' 




03010 


00042 


7 


02510* 




PROCESSOR SWITCHES 








02520 


DCSW 


DSC 


1,0, , 


DEBIT OR CREDIT LAST FOUND 


03052 


00001 




02530 


OBSW 


DSC 


1,0,, 


1111 OR (CUST) LAST FOUND 


03053 


00001 




02540 


SGSW 


DSC 


1,0, , 


SIGN OF LOCAL AMT 


03054 


00001 




02550 


SGSW2 


DSC 


1,0, , 


SIGN OF PARENTHETICAL EXPRESSION 


03055 


00001 




02560 


LPSW 


DSC 


1,0, , 


PARENTHESES NOT CLOSED 


03056 


00001 




02570 


CDVSW 


DSC 


1,0, , 


CASH, DISC, OR VOUC LAST FOUND, NO AMT YET 


03057 


00001 




02580 


AMTSW 


DSC 


1,0,, 


AMT LAST FOUND, NO N OR C, D, V YET 


03058 


00001 




02590 


sesw 


DSC 


1,0, , 


ERROR IN SENTENCE 


03059 


00001 




026CO 


GETA2 


GET 


CARD 




03060 


16 00565 


03083 












03072 


49 00566 


02832 


02610 




C 


INPUT+8, 


TITLA2 


03084 


24 02729 


03197 


02620 




BE 


TRA2 




03096 


46 03208 


01200 


02630 




C 


I\PUT+8, 


ADMNA2 


03108 


24 02 729 


03237 


02640 




BE 


TRA2 




03120 


46 03208 


01200 


02650 




RCTY 






03132 


34 00000 


001 02 


02660 




W AT Y 


NT ITA2 




03144 


39 03313 


00100 


02670 




RC r Y 






03156 


34 00000 


00102 


02680 




H 






03168 


48 00000 


OOOOO 


02690 




R7 


CFTA2 




03180 


49 03060 


OOOOO 


02700 


TITLA2 


DSAC 


5 , T I TL fc 




03197 


00010 




02710 


ADMNA2 


DSAC 


5, ADMIN 




3207 


00010 




02720 


TRA2 


SM 


CA2+11.2 


, 10 


03208 


12 03231 


00002 


02730 


CA2 


C 


CCA2, INPUT+160, 7 


03220 


24 03311 


02881 


02740 




BE 


•-24 




03232 


46 03208 


01200 


02750 




AM 


CA2+11 ,2 


, 10 


03244 


11 03231 


00002 


02760 




TDM 


LA2+ 11,0 


,6 


03256 


15 03231 


OOOOO 


02770 




DC 


I , * , * 




03267 


00001 




02780 




TRA 






03268 


16 00565 


03237 












03280 


49 00716 


OOOOO 












03287 


00002 22 





02790 CCA2 0C 2,0 

02800 NTITA2 DAC 36, TITLE OR AOMIN CARD MUST BEGIN INPUT 
02810 . DAC 18,. CORRECT, START • 

02820 TCC GETA2 

02830****************************** ***************************** ********** 

02840* * 
02850* OUTPUT AREA AND ALTERNATE OUTPUT ROUTINES * 

02860* * 
02870**********«****» J **************************************************** 



02880 
02890 

029C0 OUTPUT 
02910 
02920 
02930 

02940 PRINT 
02950 
02960 
02970 

02980 PRINTl 

02990 

03000 

03010 PHBERS 
03020 PHCERS 
03030 LCSW 
03040 PUNCH 



DORG 

DAC 

DAC 

DAC 

DAC 

DSA 

DS 

DC 

DGM 

DSA 

DS 

DC 

DGM 

DC 

DC 

DSC 

DC A 



GETA2 

1, * 
40, 
40, 
41, 

CUTPUT 
, *-4 , 

2, 18 

GUT PUT 
, »-4 
2,26 

3,0 
3,0 
1,0 

, GUT PUT 



,, PERMANENT 
,, OUTPUT 
',, AREA 



PRINTER I/O CONSTANT 



03289 00005 03295 

03294 00001 • 

03295 00006 119783 
03301 00003 003 
03304 00006 00000' 
03311 00002 
03313 00072 
03385 00036 

3060 



03060 

03061 00002 
03063 00080 
03143 00080 
03223 00082 
03308 00005 03063 
03304 00000 

03310 00002 

03311 00001 
03316 00005 03063 

03312 00000 

03318 00002 

03319 00001 
03322 00003 

03325 00003 

03326 00001 

03327 00005 03063 



7i 













03332 


00003 10G 




03050 


DPUNCH 


DC A 


.OUTPUT-- 2 




03335 


00005 03061 












03340 


00003 10G 




03060 


CLR 


DAC 


40, 


» » 


03345 


00080 




3070 


READ 


TD 


INPUT* 1 , INPUT + 160 


, KM TO EVEN LOCATION 


03424 


25 


02722 


02881 


03080 




GET 


CARD 




03436 


16 


03565 


03459 












03443 


49 


03566 


028J2 


03090 




BNP. . 


KMCHK, INPUT+1, , 


IF CARD ACTUALLY READ 


3460 


45 


03572 


02722 


03100 




B7 


Rl- AO 




03472 


49 


03424 


00030 


031 10 


RMES 


DAC 


3 3,0-2-8 ON CARD, 


REPLACED BY BLANK" 


03481 


00066 




03120 


WHCCOM 


HOP 


fMi »K+ 32 




03546 


41 


03648 


00030 


03130 




NOP 


R BNR +52 




03558 


41 


03 708 


00330 


03140 




BB2 






03570 


42 


03000 


00330 


03150 


Rt-XHK 


TOP 


PSW,0 




03572 


15 


03582 


3000J 


03160 


kSW 


Ob 


t = 1 




03582 


00300 




03170 




TR 


r.UTPUT-l, IMPUT-1, 


NO RMS ALLOWED UN CARD 


03584 


31 


03362 


02 720 


03180 




flNR 


RMERK, UUTPUT+ 160 




03596 


45 


03616 


03223 


03190 




B7 


L ABCHK 




03608 


49 


06938 


00330 


3200 


RMERK 


TDM 


hHOCOM+1,9 




03616 


15 


03547 


00339 


03210 




TFM 


tRPRNT-l ,RMES- 1 




03628 


16 


03 74 3 


03 480 


03220 




B7 


f RPRNT 




03643 


49 


03 744 


00333 


03230 




TOM 


WHUCOM + I, 1 




3648 


15 


03547 


00331 


03240 




TFM 


*+35, INPUT-2 




03660 


16 


03695 


02/19 


32 50 




AM 


»+23,2, 10,, 


CLEAR IT IN CARD INPUT AREA 


3672 


1 I 


3?>9 5 


00032 


03260 




BNR 


*-12,*-* 




3684 


45 


03672 


30333 


32 70 




TD M 


•-1,0,6 




03696 


15 


03695 


00330 


032 80 




B 


RMCHK+ 12 




03 738 


49 


0358'-. 


30330 


3 290 




NOP 






3/20 


4J 


00 00 J 


30333 


03300 




NOP 






03732 


41 


00000 


30300 


03310 


t' RPRNT 


BD 


i " M E S , P S W , , 


STANDARD ROUTINE TO OUTPUT DIAGNOSTIC 


33744 


43 


33792 


03532 


03320 




i n >• 


•' .w, 1,11, 


PUNCH CARD COPY UNLY ONCE 


03756 


15 


03 582 


30301 



13 



03330 




PUT 


CPUNCH, , , 


I M THE CASE OF MULTIPLE ERRORS 


03768 


16 


00565 


03791 




- 








03780 


49 


00532 


03335 


3340 


OWES 


TF 


CUTPUT+78,CLR+78 




03792 


26 


03141 


03423 


03350 




TF 


GUTPUT+158,CLR+78 




03804 


26 


03221 


03423 


03360 




TR 


0UTPUT+7.ERPRNT-1, 11 




03816 


31 


03070 


03743 


03370 




TFM 


•+35.0UTPUT+6 




03828 


16 


03863 


03069 


U i 380 




AM 


•+23,2,10 




03840 


11 


03863 


00002 


03390 




BNR 


#-12,»-» 




03852 


45 


03840 


OOODO 


03400 




TDM 


•-1,0,6 




03864 


15 


03863 


00000 


03410 




PUT 


CPUNCH 




03876 


16 


00565 


03899 












03888 


49 


00532 


03335 


03420 




B7 


kHOCOM 




03903 


49 


03546 


00000 


03430 


A4TCD 


TFM 


HC+13,DCSW 




03908 


16 


02315 


03052 


03440 




TFM 


NUAD.DCSW 




03920 


16 


02565 


03052 


03450 




BD 


TRA4.PRSW 




03932 


43 


03968 


02522 


03460 




TF 


WC+8, A4DSA-2 




03944 


26 


02310 


04012 


03470 




BT 


PUTA0J,PUTA0J-1 




03956 


27 


02530 


02529 


03480 


TRA4 


TRA 






03968 


16 


00565 


03937 












03980 


49 


00716 


00000 












03987 


00002 22 














03989 


00005 03995 












03994 


00001 • 














03995 


00006 119783 












04001 


00003 003 














04004 


00006 00000* 


03490 


A4DSA 


OSA 


A4TCD-DCSW+ 100 




04014 


00005 00956 


03500 




TCC 


A4ICD 




03908 








03510 




DORG 


RMCHK 




03572 








03520 




TR 


r;UTPUT + 39,INPUT-l 




03572 


31 


03102 


02720 


03530 




CM 


INPUT+2,6349,8 




03584 


14 


02723 


06349 


03540 




RE 


RBNR , , , DQNT PRINT 


NEXT TITLE 


03596 


46 


03656 


01200 



7* 



03550 




PUT 


PRINT 


03608 


16 


00565 


03631 










03620 


49 


00532 


03334 


03560 




BNI 


•+24,3400 


03632 


47 


03656 


03430 


03570 




K 


,971 


03644 


34 


00000 


0097L 


03580 


RBNR 


BNR 


*+20,OUTPUT+40+160 


03656 


45 


03676 


03263 


03590 




B7 


LABCHK 


03663 


49 


06938 


00000 


03600 




TOP 


WHOCDM+13,9 


03676 


15 


03559 


00339 


03610 




TFM 


ERPRNT- 1 , RMES- 1 


03688 


16 


03743 


03480 


03620 




B7 


ERPRNT 


3 700 


49 


03744 


00333 


036 30 




TOM 


WHOCOM+13, 1 


03708 


15 


03559 


00031 


03640 




TFM 


RMSCAN+23, INPUT-2 


3 7 2 3 


16 


03883 


32719 


03650 




B 


RMSCAN 


03 732 


49 


03860 


00330 


03660 




TF 


0UTPUT+46.CLR+46, , THIS IS THE CHITINERARY ERPRNT 


03 744 


26 


03109 


03391 


03670 




TR 


CUTPUT+47,»-l3,ll 


03756 


31 


03110 


03743 


3680 




PUT 


PR I NT 1 


03768 


16 


00565 


3 791 










03783 


49 


00532 


03312 


C3690 




PUT 


PRINT 


03792 


16 


00565 


03815 










03804 


49 


00532 


03334 


03700 




WN 


r,D + 7,900 


03816 


38 


02719 


00930 


03 710 




BNI 


•+24,3400 


03828 


47 


03852 


33433 


03720 




K 


,971 


03840 


34 


00003 


00971 


3 730 




87 


WHOCUM 


03852 


49 


03546 


00330 


03740 


RMS CAN 


AM 


•+23,2, 10 


03860 


11 


03883 


30332 


03750 




BNR 


*— I 2, »— * 


03872 


45 


33860 


30333 


3 760 




TDM 


•-1,0,6 


03884 


15 


03883 


00333 


03770 




TR 


UUTPUT + 39, INPUT-1 


03896 


31 


33132 


02720 


03780 




B7 


RBNR 


03908 


49 


03656 


30330 


3 790 


A5TCD 


BNF 


TR A5 , PRSW 


3916 


44 


33964 


2 5 2 2 


3800 




K 


,971 


03928 


34 


00000 


009 71 


03810 




rt- 


WC »-b,A5DSA-2 


03943 


26 


02313 


34338 


03820 




RT 


PUTADJ.PUTADJ-l 


03952 


27 


02533 


32529 



03830 TRA5 TRA 



03840 A5DSA 


DSA 


A5TCO-OCSW+100 




03850 


TCD 


A5TCD 












3870* 






• 


03880* 




PHASt P 


-t THE PROCESSOR » 


03890* 






» 










03910 


DORG 


A51C0 




03920 AREA 


DSS 


LNTH 




03930 LSMNEM 


OSAC 


4 t » t » » 




03940 


DSC 


1,0 




03950 AD 


DSA 


»-# 




03960 


DC 


8, • 




03970 LABCHK 


C 


T I TLB, INPUT+B 




03980 


BE 


TITLBF 




03990 


C 


ADMIN, INPUT+8 




04000 


HE 


n TLBf 




04010 


C 


XREFB, INPUT+6 




04020 


BE 


GOTO F 




04030 N0C0L7 


C 


CLR+6, INPUT+20, , 


IS MNEMONIC FIELD BLANK 


04040 


BNE 


I SLAB 




04050 


CM 


LSMNEM-4, 2323, 8, 


YES, WAS THfcRt ANY PR fc V. LABEL 


04060 


BNE 


COM 





040 70 




B7 


Pf AO 


040R0 


XREFB 


DSAC 


<-. , XRFF 


04090 


TITLBF 


RCTY 




04100 




RCTY 




04110 




WATY 


n t i t 1. 1 


04120 




RCTY 




04130 




wa r Y 


OT I TL2 


04140 




H 




041 50 




RCTY 




04160 




r-uc 


.HAD 


04170 




BTM 


CE TA0J,WC+6*20 


04 180 




SM 


•♦23,2,10 


04190 


CCC 


C 


CLR, INPUT+160, 7 


04200 




BE 


.-24 


04210 




AM 


CCC+11,2, 10 


04220 




TD,V 


C"C+ll,0,6 


04230 




DC 


I,',* 


04240 




BTM 


GE i AC J , WC ♦ 7*20 , 71 1 , RE-CALL PHASE 8 


04250 


BT I TL 1 


DAC 


50, A TULt CARD HAS BEEN FOUNi) IN THE SOURCE PROGRAM 


04260 


BTI nz 


OAC 


46, Sw 2 OFF 1!) CONTINUE AND IGNORE, I IN 10 ACCtPT' 


04270 


T I T l a 


DSAC 


5, TITLE 


04280 


ADMIN 


OSAC 


5, ADMIN 


04290 


I SLAB 


TFM 


ACL AB+ I 1 , Ii.PUT + 14, .COLLECT + L c F T- JUST I F Y I NG i,ArtfcL 


04300 




TF 


H.iLAB, CLR + 6 


04310 




TFM 


AM;j*6, H0LA:i-8 


04320 


ACLAB 


c 


C!.R,*-» 


04330 




BE 


AM In- 12 


04340 




AM 


AMR *6, 2, 10 


04350 




1 FM 


ai-;,., + ii ,o, io 


04360 




A 


AM B * 1 I , AC t A P + 11,11 


04 3 70 


A MB 


AM 





03964 16 00565 03983 

03976 49 00716 00J30 

03983 00002 22 

03985 00005 03991 

03990 00001 • 

03991 00006 119783 
03997 00003 003 
04000 00006 00000' 
04010 00005 00964 
03916 



03916 



03916 


03000 




06923 


00008 




06924 


00001 




06929 


00005 00000 


06937 


00008 




06938 


24 


07455 


02729 


06950 


46 


07074 


01200 


06962 


24 


07465 


02729 


06974 


46 


07074 


01200 


06986 


24 


07073 


02 72 7 


06998 


46 


09268 


01200 


07010 


24 


03351 


02741 


07022 


47 


07466 


01200 


7034 


14 


06919 


02323 


7046 


47 


07894 


01200 



7* 



7058 


49 


03424 


30303 


07073 


00008 




7074 


34 


00000 


00132 


7086 


34 


00300 


00132 


07098 


3 9 


07255 


00103 


7110 


34 


ooooo 


00 102 


7122 


39 


37355 


00100 


7134 


48 


0300D 


00000 


7146 


34 


00003 


00132 


7158 


4 7 


03424 


00200 


071 70 


1 7 


02618 


0242? 


07182 


12 


07205 


0003? 


7194 


24 


03345 


02 3 -3 1 


07206 


46 


07182 


0123 ) 


7213 


1 I 


07205 


30332 


7230 


15 


37205 


30000 


07241 


00001 




7242 


1 7 


02618 


02442 


3 7255 


00100 




37355 


00392 




7455 


00010 




7465 


00313 




7466 


16 


07513 


02 7 54 


7478 


26 


13798 


03351 


0/493 


16 


07568 


10 no 


07502 


24 


03345 


00003 


07514 


46 


75 74 


01233 


07526 


1 I 


0756B 


00332 


75 38 


16 


0757} 


00303 


7553 


21 


07573 


07513 


7562 


1 1 


03000 


00333 



04380 




AM 


ACLAB+11,2,10 




07574 


11 


07513 


00032 


04390 




CM 


ACLAB+U, INPUT + 22 




07586 


14 


07513 


02743 


04400 




BL 


ACLAB 




07598 


47 


07502 


01300 


04410 




C 


HOLAB, LSMNEM, , 


IS LABEL SAME AS PREVIOUS 


07610 


24 


10798 


06923 


04420 




BE 


CONT,,, 


YES, CONTINUE 


07622 


46 


07894 


01230 






rriM 






C7634 


1 J 


3 61 1 


00 00 


04440 




BTM 


LGCAND,DSWNLB 




07646 


17 


08090 


09576 


04450 




bnf 


LASWOK, TRSWtt 


NOW TEST IF STATUS SWS ARE ALL IN ORDER 


07658 


44 


07706 


08100 


04460 




BTM 


ERPRNT.BADLAB-l, , 


FOR BEGINNING A NEW ROUTINE 


07670 


17 


03744 


07958 


04470 




AM 


PHBERS, 1, 10 




07682 


11 


03322 


00031 


04480 




BTM 


SETSWS , DSWNLB 




07694 


17 


08208 


09576 


04490 


LASWOK 


TF 


CLAB+6, TRLAB+6 




07706 


26 


07744 


07834 


04500 




AM 


CLAB+6, 7, 10 




07718 


11 


07744 


00007 


04510 




87 


CLAB+36 




07730 


49 


07774 


00330 


04520 


CLAB 


C 


*-♦, HOLAB 




07738 


24 


00000 


10798 


04530 




BE 


DUPLAB 




07750 


46 


07926 


01230 


04540 




AM 


CLAB+6, 14, 10 




07762 


11 


07744 


00314 


04550 




BNR 


CLAB, CLAB+6, 11 




07774 


45 


07738 


07744 


04560 




S 


TRLA3+ 1 1 , 14S 




07786 


22 


07809 


10805 


04570 


TRLAB 


TR 


I.SMNEM + 7.LSMNEM+21, 


,2 


07798 


31 


06930 


06944 


04580 




TF 


LSMNEM, HOLAB 




07810 


26 


06923 


10798 


04590 


FINLZE 


TR 


1NSAD,EM0RT,6 




07822 


31 


09974 


10836 


04600 




TOM 


TDX+10,0 




07834 


15 


09466 


00000 


04610 




AM 


INSAD,6,10 




07846 


11 


09974 


00306 


04620 




C 


INSAD, TRLAB+6 




07658 


24 


09974 


07834 


04630 




BNL 


CVERB 




07870 


46 


1002 8 


01330 


04640 




jf- 


AO, I NSAD 




07882 


26 


06929 


09974 


04650 


CONT 


TF M 


COL, INPUT+22 




07894 


16 


08697 


02743 


04660 




BD 


RBACK , RBSW 




7906 


43 


08850 


3861 1 


04670 




B7 


SSUPP 




07918 


49 


08494 


00330 


04680 


OUPLAB 


BTM 


ERPRNT , OLMES- I 




07926 


17 


03744 


08320 



fr 



04690 




AM 


PHBERS, 1,10 




07938 


1 1 


03322 


00331 


04700 




B7 


F INLZE 




07953 


49 


37822 


00333 


04710 


EADLAB 


DAC 


31, PREVIOUS ROUTINE NOT COMPLETED' 


7959 


00362 




04720 


DLMES 


DAC 


32, LABEL DUPLICATES PREVIOUS LABEL ' 


08021 


00364 




04730» 


















04740* 




ROUTINE TO TAKE 1 HE 


LOGICAL AND OF A BUNCH OF SWITCHES 










04750* 


















04760 




OS 


5 




08088 


00005 




04 7 70 


LGC AND 


TDM 


TRSW.O, , 


RESET OUTPUT SW TO OK 


08C90 


1 5 


08100 


00330 


04780 


TRSW 


OS 


,*-! 




08103 


00000 




04790 




TF 


BDL + 1 1 , LGC AND- 1 , 


11, PULL IN INPUT SW ADDKESS 


08102 


26 


08149 


08389 


04800 




BNF 


PSEEK, BDL + 11,, 


BRANCH IF THE SW IS DESIRED TO tit OFF 


08114 


44 


08164 


08149 


04810 




CF 


6DL+11,,, 


SW DESIRED TO BE ON 


0al26 


33 


08149 


00303 


04820 


BDL 


RNF 


PCFEK+12,*-*, , 


IS IT 


08138 


44 


08176 


00330 


04830 




TDM 


TRSw,l,ll, 


NO, SET OUTPUT SW TO NOT OK 


0bl50 


15 


08100 


33331 


04840 




BB2 




AND OUT 


Odl62 


42 


00000 


00030 


04850 


PSEEK 


BNF 


eDL+12,BDL + U, 11 


, SW DESIRED TO BE OFF, BRANCH IF ON 


08164 


44 


08150 


08149 


04860 




AM 


LGCA'NO-1,5, 10, 


THAT SW WAS OK 


08176 


1 1 


38389 


0033'j 


04 8 70 




BNR 


LGC AN0+12,I.GCAND 


-1,11, BACK FUR ANOTHER 


08188 


45 


08102 


08389 


04880 


BB2 


BB2 


, , , 


OR OUT 


08230 


42 


33003 


30333 


04890 




OS 


5 




08236 


0030 r > 




04900 


SETSWS 


TF 


TDMJ+6, «-l, 11, 


ROUTINE TO SET SWS AS SPECIFIED 


00238 


26 


38270 


3823 7 


04910 




BNF 


TDMJ , TDMJ+6 




08220 


44 


08264 


08270 


04920 




CF 


TDMJ+6 




Ob232 


3 3 


082 70 


00030 


04930 




TDM 


TDMJ+6, 0,6 




0b244 


15 


382 73 


30007 


04940 




B7 


TDMJ+12 




0t)256 


49 


00276 


00333 


04950 


TDM J 


TDM 


* 1, 11 




0H264 


15 


00300 


3003 I 


04960 




AM 


SFTSWS-l, 5, 10 




0H276 


1 1 


08207 


0033-5 


04970 




BNR 


SETSWS, SETSWS- 1 , 


11 


08288 


4 5 


08208 


0823 7 


0498C 




BB2 






Od330 


42 


00300 


30333 


04990 


LSCANS 


TF 


CM42+11,C0L, , 


SAVE POINTER 


0.0 332 


26 


"18481 


3 8 697 



7f 



05000 




TFM 


TDNUM+6, ALPHAN-6, , THIS A I NT NO NUMERIC 


08314 


16 


08560 


10113 


05010 




BTM 


SCAN, 


CREDIT 




08326 


17 


08662 


0896 1 


05020 




BTM 


SCAN, 


DEBIT 




08338 


17 


08662 


08930 


05030 




BTM 


SCAN, 


AMT 




00350 


17 


08662 


09034 


05040 




BTM 


SCAN, 


L PAR EN 




08362 


17 


08662 


09322 


05050 




BTM 


SCAN, 


VQUC 




08374 


17 


08662 


0905 3 


05060 




BTM 


SCAN, 


DISC 




08386 


17 


08662 


09368 


05070 




BTM 


SCAN, 


CASH 




08398 


17 


08662 


0908H 


05080 




BTM 


SCAN, 


PLUS 




08410 


17 


08662 


09113 


05090 




BTM 


S CAN, 


MINUS 




00422 


17 


08662 


09128 


05100 




BTM 


SCAN, 


SPLUS 




08434 


17 


08662 


09145 


05110 




BTM 


SCAN, 


SMI, 'JUS 




08446 


17 


08662 


09154 


05120 




BTM 


SCAN, 


RPAREN 




00458 


17 


08662 


09163 


05130 


CM<,2 


CM 


CUL , • 


-*, , 


HAS ALL THAT MOVED POINTER 


08470 


14 


08697 


00330 


05140 




BE 


UPCOL 


, t , 


NO, GO TO MOVE IT 


08482 


46 


08602 


01230 


05150 


SSUPP 


C 


CZERO 


, COL ,11, 


SPACE SUPPRESS, ENTERS HERE 


08494 


24 


10823 


086-J7 


05160 




BNL 


UPCOL 






08506 


46 


08602 


01330 


05170 


IFNUM 


C 


C70B, 


CUL, 1 1 , 


CHECK FOR NUMERICS 


08518 


24 


10790 


08697 


05 180 




BH 


LSCANS, , , 


NO, GO RUN THE ALPHA GAUNTLET AGAIN 


08530 


46 


08302 


OUJO 


05190 




BD 


AMTN, 


AMTSW, , 


IS TH1 S LIKE AMT N 


08542 


43 


10454 


33058 


05200 


TDNUM 


TO 


AL PHAN-6 ,CUL i 


11, NO 


06554 


2 5 


10813 


0869 1 


05210 




CM. 


«-6, ALPHAN, , 


HAVE wr 4 NUMERICS 


08566 


14 


08560 


10319 


05220 




RNL 


NNNN , 


, , 


YES, GO TO PROCESS 


08578 


46 


10474 


01330 


05230 




AM 


TDNUM+6,2, 10, 


NO, THEN FVER 


08593 


11 


08560 


00332 


05240 


UPCOL 


AM 


COL, 2 


, 10, 


ONWARD, LIKE UP UN CARD 


08602 


11 


08697 


03332 


05250 




CM 


COL.ENOWOS,, 


IF END OF CARD 


08614 


14 


08697 


02 86 3 


05260 




BNH 


SSUPP 


tit 


NO, SO TO SUPPRESS SPACES 


08626 


47 


08494 


3113 3 


05270 




TDM 


RBSW, 


0,, 


YES, SET SW TO RETURN TU SSUPP 


08638 


15 


08611 


00330 


05280 




B7 


READ, 


, » 


AND GO TU READ A NEW CARD 


00653 


4 9 


03424 


00330 


05290 


ENDWDS 


OS 


, INPUT+142 




02863 


00000 




05300 


RBSW 


DS 


,UPC0L+9 




0861 1 


00000 





05310 




DS 


5 






08661 


00305 




05320 


SCAN 


TF 


OR l,*-l, 11, 


RRING IN CHAR DUE TO NECESSITY 


TO CF 


08662 


26 


13821 


3866 1 


05330 




AM 


SCAN- I, 2, 10, 


UP IN CONTROL NOW 




08674 


1 1 


08661 


00332 


05340 


CI 


C 


i.;bj,»-»,, 


MAIN COMPARE, WITH OVERFLOW 




08686 


24 


10821 


00 3 J J 


05350 


COL 


DS 


, * , 


MAINLINE HAS Sh.T COL NON-BLANK 


COMING IN 


08697 


00000 




05360 




BE 


IFEND, , , 


AH- SO 




08698 


46 


08794 


0123 


05 3 70 




BNF 


SB2.0BJ, , 


COLUMN VS. CONTROL UNEQUAL, OUT 


IF NONA MB I, 


38 713 


44 


08200 


10 8 2 1 


05380 




CF 


OBJ,,, 


CLEAR AM8IG I- LAG 




0t)722 


33 


10821 


00330 


05390 




AM 


SCAN- 1,3,10, 


UP TO AMBIG ADDRESS 




0H734 


1 1 


08661 


00333 


05400 




C 


ClK , CUl ,11, 


AND COMPARt. AG A I U 




3-)74 6 


24 


1382] 


38 69 7 


05410 




BE 


SCAN* 12, , , 


FOUAL, UP TU NEXI CHA * 




8 758 


46 


08674 


01230 


05420 




n 


SCAN-1 , SCAN- I , 


ll,UNtOUAl, SET UP IN NEW WIM.') A NO 




8 7 7 3 


26 


0<";66 1 


38561 


05430 




SM 


CUL ,2,10, 


KEEP SAME CARD COLUMN 




Oh/82 


12 


08697 


00332 


05440 


I FEND 


CM 


SC. AN- 1,9-1, 61 


IF EN J IF C'JNIRUL WDR ) 




8 1 1 4 


14 


08661 


DOOi-J 


05450 




BNE 


NOt NT, , , 


. NO., GO T(J UP CARIl Ci)LUM-4. • 




■0«0 3"6 


4 7 


388 74 


01230 


54 60 




AM 


SC/.N- 1,5,10, 


YES, GO 




088 18 


I 1 


08661 


3033 6 


05470 




SF 


SCAN- 1, ,, 


TO 




088 30 


32 


08661 


00330 


05480 




B7 


SCAN- 1 , ,6, 


ROUTINE ,Wl In C(.t. AT 


LAST CHAR 


8 8 4 2 


4 9 


08 66 1 


30330 


05490 


RHACK 


C 


CZtRn.COL, 1 I , 


SUPPRtSS ULANKS 




0---850 


24 


13823 


0869 7 


05500 




BL 


scan, , , 






8 862 


4 7 


08662 


01 300 


055 iO 


NC.LND 


AM 


'XL ,2,10, 


IIP UN CAR r ) 




088 74 


1 I 


08697 


0030/ 


05520 




CM 


COL, ENDWDS,, 


1 1- f i •')(" CA-M 




8 8 8 5 


14 


08697 


0285 J 


05530 




RNt- 


HRACK , , , 


Hi)-, GO TO ='.LA';K-Ci)cCK 




>i (i 9 3 


47 


30850 


3113 


05540 




T DM 


RRSW, 1,11, 


YES, SET SW Tli .-SETUKN Tfi KHACK- 




08913 


16 


08 611 


000 3 1 


05550 




8 7 


READ, , , 


A NO GO 10 «t AD. NEW CA^il 




0«922 


4 9 


03 42 4 


00033 


05560* 




















055 70* 




CONTROL WORDS KlK 


SCAN 












05580* 




















05590 


DEB I T 


DVLC 


, ? , 4 <- , 2 , -- 4 5 , 5 , 


I SC , 2 , 42 , 2 , 9, Z , h 3 , 2 , >9 , -3 , DBF ND 




08933 


0032 2 




056C0 


I SC 


nvi r 


, ? , 4 9 , 2 , - -i 6 , 5 , 


!>I SC*-> 




08952 


00309 




056 10 


CREDIT 


DVLC 


,2,43,2, S), 1 ;, 


ASH, 2, 45, 2, 44, 2, -4 9, 5 , 0E 311 +2,2 , -6 } 


08961 


00322 





05620 




DVLC 


,5,DISC+9,2,99,5,CRFND 


08986 


00012 




05630 


ASH 


DVLC 


,2,41, 2,-36, 5.CASH+9 


08995 


00009 




05640 


AMT 


OVLC 


,2,41,2,54,2,-63,5,MINUS+2,2,99,5,AMFN0 


09004 


00018 




05650 


LPAREN 


DVLC 


,2, 24, 2, 99, 5, LPFND 


09022 


00009 




05660 


CUST 


DVLC 


, 2, 43, 2, -64, 5, CREDIT+2, 2, 62, 2, 63, 2, 04, 2, 99, 5, C5FND 


09031 


00022 




05670 


VOUC 


DVLC 


,2, 65, 2, 56, 2, 64, 2, 43,2, 99, 5, VCFND 




r»mi k 




05680 


DISC 


DVLC 


,2,44,2,-49,5,DEBIT+2,2,62,2,43,2,99,5,DSFND 


09068 


00020 




05690 


CASH 


OVLC 


,2,43,2,-4l,5,CRf=DIT + 2,2,-62,5,AMT+2.2»48, 2,99,5 ,CAF NO 


09088 


00025 




O57C0 


PLUS 


DVLC 


,2, 57, 2, 53,2, 64, 2, 62, 2, 99, 5, PLFND 


09113 


00015 




05710 


MINUS 


DVLC 


, 2, 54, 2, 49, 2, 55, 2, 64, 2, 62, 2, 99, 5, MNFND 


09128 


00017 




05720 


SPLUS 


DVLC 


,2, 10,2,99, 5, PLFND 


09145 


00009 




05730 


SMINUS 


DVLC 


,2, 20, 2, 99, 5, MNFND 


09154 


00009 




05740 


RPAREN 


DVLC 


,2,04,2,99,5,RPFND 


09163 


00009 




05750 


LPFND 


TD 


iGjW2, SGSli, , BOUNCING OUT OF SCAN WITH ( FOUND 


09172 


25 03055 


03054 


05760 




TDM 


SGSW,0 


09184 


15 03054 


00000 


05770 




TDM 


LPSW.1,11 


09196 


15 03056 


00001 


05780 




TFM 


SCAN-UCUST, , SNEAK BACK IN FOR CUST 


0920B 


16 08661 


09031 


05790 




B7 


NOEND 


0922.0 


49 08874 


00000 


05800 


PLFND 


TDM 


SGSW.O,, PLUS Ok + FOUND — THE 2 SIGN SWS ARE 


09228 


15 03054 


00300 


05810 




DC 


3-WAY, FOR NO SIGN 


09239 


00001 




05820 




87 


*+20,,, OUTSTANDING, FLAGGED 


09240 


49 09260 


00000 


05830 


MNFND 


TDM 


SGSW,l,ll,, MINUS OR - FOUND 1 FOR MINUS, FLAGGED 


09248 


15 03054 


00001 


05840 




B7 


UPCOL 


09260 


49 08602 


00000 


05850 


GOTOF 


RTM 


LGCAND, DSWNLB , , GO TO START MESSAGE 


09268 


17 08090 


09576 


05860 




BNF 


•+36.TRSW,, FOUNO, GET OUT 


09280 


44 09316 


08100 


05870 




BTM 


ERPRNT , BADLAB- 1 


09292 


17 03744 


0795a 


05880 




AM 


PHBERS, 1,10 


09304 


11 03322 


00001 


05890 




TR 


INSAD, ENDRT,6 


09316 


31 09974 


10806 


05900 




AM 


IN SAC, 6, 10 


09328 


11 09974 


000D6 


05910 




C 


INSAD, TRLAB+6 


09340 


24 09974 


07804 


05920 




BNL 


CVERB 


09352 


46 10028 


01300 



05930 




TF 


WC+18, TRLAB+6 


09364 


26 


02320 


07804 


05940 




AM 


WC + 18, 7, 10 


09376 


1 1 


02320 


0000 J 


05950 




BTM 


bt.TSWS,DCDSA2 


09388 


17 


08208 


09571 


05960 




BTM 


GETADJ,WC+8»20, 711, LINK Tf) PHASE C 


09400 


1 7 


2 618 


02 4 6X 


05970 


DBF ND 


TFM 


ADREG i 


09412 


16 


10828 


00000 


05980 




B7 


• + 20 


04424 


49 


09 444 


00000 


05990 


CRFND 


TFM 


ADREG, L 


09432 


16 


10828 


OO007 


06000 




BD 


•+32,»+22 


09444 


43 


09476 


09466 


06010 


TDX 


TDM 


*+10,l 


09456 


15 


09466 


00001 


06020 




B7 


SWELL 


09468 


49 


09524 


00000 


06030 




BTM 


LGCAND, DSWNLB 


09476 


1 7 


08090 


09576 


06040 




BNH 


.■>WbL I > TRSW 


9488 


44 


09524 


08100 


06050 




BTM 


tRPRNT i BADOC- 1 


09500 


1 7 


03744 


10836 


06060 




AM 


PHBERS, 1, 10 


09512 


11 


03322 


00001 


06070 


SWELL 


CF 


CSWNLF. 


09524 


33 


09576 


0000>/ 


06080 




RTM 


S£TSWS,DCDSA2 


09536 


17 


08208 


0957 1 


06090 




SF 


CSKNLB 


09548 


32 


09576 


00000 


06100 




B7 


LPCOL 


09560 


49 


08602 


00000 


061 10 


DCDSA2 


DSA 


-SESW 


095 71 


00005 03.')59 


06120 


DSWNLB 


DSi 


-DCSW,-OBSW,-CDVSW,-AMTSW 


09576 


00005 03052 










09581 


00005 03053 










09586 


00005 03357 










09591 


00005 03058 


Q6130 


RPDSA 


DS4 


-1 PSW,-SGSW,-SGSW2 


09596 


00005 13i 


:)56 










09601 


00005 3054 










09606 


00005 03055 


06140 




DC 


5 , ' 


09611 


00005 




06150 


RPFND 


BNF 


UPCOL, LPSW 


09612 


44 


08602 


03056 


06160 




BNF 


CLRSN.SGSW 


09624 


44 


09660 


03054 


06170 




BTI' 


ERPRNT, HADRP-1 


09636 


17 


03744 


09680 


06180 




AM 


PHBERS, 1,10 


09648 


11 


03322 


0000 L 



06190 


CLRSN 


BTM 


SbTSWS.RPOSA 




09660 


17 


08208 


09 5 i 6 


062C0 




17 


LiPf.OL 




09672 


49 


08602 


00030 


06210 


BAORP 


DAC 


18, PARENTHESIS ERROR • 


09681 


00036 




06220 


CAFND 


TOM 


INST, Ot , 


CASH 


09716 


15 


10829 


00300 


06230 




B7 


VCFNO+12 




09728 


49 


09768 


00000 


06240 


DSFND 


TON 1 


INST.O,, 


DISC 


09736 


15 


10829 


00000 


06250 




DSC 


If ' ,* 




09747 


00001 




06260 




B7 


VCFND+12 




09748 


49 


09768 


00000 


06270 


VCFND 


TDM 


INST ,0, , 


VOUC FOUND 


09756 


15 


10829 


00300 


06280 


WISGM 


DGM 


« 




09767 


00001 




06290 




BD 


RSAMT , AMTSW, , 


DID 'AMT* SHOW UP PREVIOUSLY 


09763 


43 


09828 


03358 


06300 




BD 


•+36, SGSW 




09780 


43 


09816 


03354 


06310 




BD 


*+24 , SGSW2 » , 


IGNORE THE WORD IF NNNN, (CUST), 


09792 


43 


09816 


03355 


06320 




BNF 


upcru. ,ubsw, , 


OR A SIGN HAS NOT PRECfcGOLD 


09804 


44 


08602 


03053 


0633C 




TDM 


CDVSW, 1,11 




09816 


15 


03357 


00001 


06340 


RSAMT 


TDM 


GRSW.O 




09828 


15 


03053 


00330 


06350 




TDM 


AMI SW,0 




09840 


15 


03058 


00030 


06360 




BNR 


SrC2,SGSW2,, 


DETERMINE THE SIGN 


09852 


45 


09896 


03355 


06370 


SbC3 


BNF 


SPOS.SGSW 




09864 


44 


09944 


03354 


06380 




BMR 


SNEG.SGS.J 




09876 


45 


09932 


03354 


06390 




B7 


SPCS 




09888 


49 


09944 


00330 


06400 


SEC2 


BNF 


SEC3 t SGSH2 




09896 


44 


09864 


03355 


06410 




BNF 


SNibG.SGSW 




09908 


44 


09932 


03354 


06420 




BNR 


SPOSfSGSW 




09920 


45 


09944 


03354 


06430 


SNEG 


SF 


INST 




09932 


32 


10829 


00330 


06440 


SPOS 


TDM 


SGSW.O 




09944 


15 


03054 


00333 


06450 




BD 


LPCOL, SfcSW, , 


ASSbMBLb NOTHING IF . StNVfcNCh E : *><OK 


09956 


43 


08602 


3305'} 


06460 




TD 


APEA, INST, 2 




09968 


25 


03916 


10823 


064 70 


I NS AD 


DS 


. *-5 




09974 


00300 




06480 




AM 


IN? AD, 6, 10 




09980 


1 1 


09974 


00336 


06490 




TF 


INS AO, INST + 6, 6 




09992 


26 


09974 


10835 




















065C0 




C 


INSAO, TRLAB+6 




10004 


24 


09974 


078 )'. 


06510 




BL 


UPCUL 




10016 


4 7 


08602 


01333 


06520 


OVERB 


RTM 


LRPRNT , CVBMES- 1 




10028 


17 


3 744 


10372 


06530 




BT M 


LRPRNT , 0VBM2- I 




10040 


17 


03744 


10176 


06540 




RTM 


i \> t""i r , rt.'Ti»iii + ? m, 


, BLANK CARD 


1005? 


1 7 


03744 


3 3 3 3 


06550 




CALL 


F X I 1 




10064 


49 


03 796 


0033 ) 


06560 


C1VBME 5 


DAC 


50,STUI)E'.T t 1 K ■ ' GR A M 


(..XCtF.OS COKE CAPACITY AT TIM 5 POIN, , 


1 JO 73 


ooi 30 




06570 




DAC 


2,1' 




10173 


00004 




Q6580 


0VBM2 


DAC 


4 3,STU0Ff:T DROGRAM 


TERMINATED, JOB TERMI JATlJ' 


10177 


00086 




06590 


AMFND 


BD . 


l.PC0L6,CI'VSW 




l'j?62 


43 


13394 


33357 


066C0 




B T M 


1 ',C A'JU, AMDSA2 




Ij2 74 


17 


08090 


1043 7 


06610 




TD 


HUSW, TRSW 




10286 


25 


1 0404 


08 130 


06620 




t\Jf 


L GC A 'JD , AMDSA 




I 2-9 8 


L 7 


08090 


10417 


06630 




BNF 


•♦4h»TkSW 




10 310 


44 


10358 


38130 


06640 




FiT" 


i. iMM'.f:: , a m m c s - 1 




10322 


17 


03744 


10 8 3 6 


06650 




AM 


PHBbRS , 1 , 10 




10 334 


1 1 


03322 


30331 


06660 




TDM 


SLS»«,1,1G 




10346 


15 


03 3 59 


00331 


06670 




TDM 


rusw , n 




10358 


15 


03353 


00 3 30 


06680 




TDM 


AM1SW, 1,11 




1 1; 3 70 


15 


03058 


303 3 1 


06690 




TOM 


!.*CSW,0 




lu 382 


15 


03052 


30333 


06700 


UPC0L6 


TDM 


C V S W , 




1 0394 


15 


03357 


30333 


06710 




B7 


M-CUL 




10406 


4 9 


08602 


00330 


06720 


HUSW 


DS 


,1)1^01.6+10 




1"434 


00300 




06730 


AMDSA 


DS A 


-AMTSW, HOSw,-OCSw 




10417 


00005 3 


j 58 












10422 


00305 10434 












1042 7 


00005 03052 


06740 




DC 






10432 


00305 




06750 


AMDS A2 


DS A 


-0BSW,-SGSW,-SGSW2 




10437 


00005 03 


)53 












10442 


00305 03054 












10447 


00005 03055 


06760 




OC 


5 » • 




10452 


00005 





rs 



06770 


ANTN 


TD 


INST, COL, 11, 


AMT 


N 


FOUND 




10454 


25 


10829 


08697 


06780 




B7 


RSAMT - • 










10466 


49 


09828 


00330 


06790 


NNNN 


TF 


TFLB+1 1 , HEDDSB 










10474 


26 


10521 


19654 


06800 




TF 


AMBA*ll,HEDDSA+6*5 










10486 


26 


10649 


19534 


06810 




TFM 


TDNUM+6 , ALPHAN-6 










10498 


16 


08560 


10813 


06820 


TFLB 


TF 


»+23.»-* 










1C513 


26 


i \j j 3 3 


wOO *j 


06830 




C 


ALPHAN,*-* 










10522 


24 


10819 


00000 


06840 




BE 


AMBA-12 










10534 


46 


10626 


01200 


06850 




AM 


TFLB+11,5, 10 










10546 


11 


10521 


00005 


06860 




AM 


AMBA*11,S, 10, 


S LIKE 


IN SHEEPSHEAD 


10558 


11 


10649 


00D21 


06870 




BNR 


TFLB,TFL8+11,U 










10570 


45 


10510 


10521 


06800 




BTM 


tKKRNT , BAD ACT-1 










10582 


17 


03744 


10874 


06890 




AM 


PHBERS, 1, 10 










10594 


11 


03322 


00331 


06900 




B7 


WHOP 










10606 


49 


10698 


00330 


06910 


CSFND 


TFM 


AMBA+11,0 










10614 


16 


10649 


00030 


06920 




TF 


OBJ AD, ADREG 










10626 


26 


10834 


10828 


06930 


AMBA 


AM 


OBJ AD, •-* 










10638 


11 


10834 


00300 


06940 




BTM 


LGCAND,OBOSA 










10653 


17 


08090 


10733 


06-950 




BMF 


*+48,TRSW 










10662 


44 


10710 


08100 


06960 




BTM 


ERPRNT »OBM£ 1 










10674 


17 


03744 


10836 


06970 




AM 


PHBERS, 1,10 










10686 


11 


03322 


00031 


06980 


WHOP 


TDM 


SES-W, 1, 11 










10698 


15 


03059 


00331 


06990 




BTM 


SETSWS.0BDSA2 










10710 


17 


08208 


10758 


07000 




B7 


UPCOL 










10722 


49 


08602 


00330 


07010 


OBDSA 


OS A 


i:CSW,-OBSW,-AMTSW,- 


CDVSW 






10733 


00005 03052 


















10738 


00005 03053 


















10743 


00005 03058 


















10748 


00005 03057 


07020 




DC 












10 753 


00005 




07030 


0BDSA2 


DSA 


CBSW,-DCSW,-AMTSW,- 


CDVSW, 


-LPSW,- 


SGSW2 


10758 


00005 03053 


















10763 


00005 03052 

S 


















10768 


00005 03058 


















10773 


00005 03057 


















10778 


00005 03056 


















10783 


00305 03055 


07040 




DC 


5, • 










10788 


00005 




07050 


C70B 


DC 


2,70 










10793 


00332 




07060 


HOL AB 


DS 


8 










10798 


00008 




07070 


14S 


DC 


7, 1400014 










10805 


00307 




07000 


ENORT 


DSC 


6, * 










10806 


00006 




7090 


ALPHAN 


DSAC 


4,7777 










10819 


00308 




07100 


OBJ 


DS 


2 










10821 


00002 




07110 


CZERO 


DC 


2,0 










10823 


00002 




07120 


ACREG 


DC 


5,0 










10828 


00005 




07130 


INST 


DSC 


1,0,, 


ASSEMBLY AREA 


TO PUT INTO THE 


10029 


00001 




07140 


OB J AD 


DSA 












10834 


00005 00000 


07150 




DSC 


1, ', , 


OBJECT 


CODING 




10635 


30001 




071 60 


AMMES 


DAC 


19, IMPROPER STATEMENT* 








10837 


00038 




07170 


BADACT 


DAC 


3? ,NON£X I STANT ACCOUNT 


NUMBER USED * 


10875 


00064 




07180 


OBMES 


DS 


, AMMES 










10837 


00000 




07190 


DADDC 


DS 


, AMMES 










10837 


00000 




07200 


BEG I NB 


RCTY 












10938 


34 


00000 


00107 


07210 




RCTY 












10953 


34 


00000 


00102 


7220 




WAT Y 


INPUT,,, FIRST LINE 


: of 


LOG 




10962 


39 


02721 


00130 


07230 




TR 


T i TSAV-l , INPUT- 1 










10974 


31 


02890 


02720 


07240 




BD 


•+24, PRSW 










10985 


43 


11010 


0252? 


07250 




TDM 


^SW, 1, 11 










10998 


15 


03582 


00331 


07260 




BTM 


ERPRNT > T I TSA V- 1 










1 1013 


17 


03744 


02890 


72 70 




BTM 


GETADJ,WC+3»20,711 










1 1022 


17 


02618 


0235? 


07280 


TCDH 


TFM 


WC+ 18, BEGINS 










11034 


16 


02320 


10938 


7290 




TFM 


WC+13.LSMNEM-7 










1 1046 


16 


02315 


06916 


07300 




TFM 


NUAD, LSMNEM-7 










11058 


16 


02565 


06916 



17 



07310 TFM WC+3*20+18,READ, , TITLE CARD IS IN 

07320 SF PLlNU+11 

07330 TF WC*8,LBDSA-2 

07340 BT PUTADJ,PUTAnj-l 

07350 TRA 



07360 LBDSA 
07370 

07380 ENDB 
07390******. 



DSA 
TCC 
OS 



! crm i smni-m+107 
rcoEi 

« TCDB- 1 



07400* 
07410* 
07420* 
07430* 

07440************»*»»»*»»*##»» 



PHASE C -- THE EXECUTOR 
READS REFERENCE SECTION * EXECUTES 



► *»«-»»»»»»» * •■•••••**»»«! 



07450 
07460 
07470 
07480 
07490 
07500 
07510 
07520 
07530 
07540 



DORG 
C 

BE 
C 

BE 
C 

BE 
BLC 
RCTY 
RCTY 



lABCHK 

y.Kl FC, INPUT-t-6 
PDRTHC 

TITLC, INPUT*ri 

nine 

ADM I NC , INPUT+8 
HltTC 

cure 2 



07550 


WATY 


ruiTC 




07560 


HCTY 






07570 


H 






07580 


R7 


"M: A [J 




07590 OUTC 


SM 


TCMC + 1 1 , 2, 10 




07600 TCMC 


C 


Cl R , INPUT* 160, 7 




07610 


BE 


nuTC 




07620 


AM 


TC 40 + 11,2, 10 




07630 


TDM 


TCMC +11,0,6 




07640 


DC 


1 , ' , * 




07650 


B7 


^UlC 1 




07660 0UTC2 


TOM 


ICSW,1,11 




07670 0UTC3 


CM 


TITSAV+2,4144,8 




07600 


RE 


MHljCH 




7690 


TF 


r.NTRD + 1 1 , TiiShAD 




O77C0 LPBD 


AN" 


CNTBO+1 1 , 1 , 10 




7710 


AM 


* +9, I, 710 




7 720 


C 


UPain21,Hl:0Di'\-»-9*5 




7730 


RH 


CUISWL 




07740 CNTlJD 


BD 


LPBD,*-* 




07750 


TO 


■ r U)CMi:S + 76,LP'in + /l 




07760 


TD 


M3CMES+74, 1 PfiD+20 




07770 


TD 


NOCMES + 72,LPi'D+19 




077*30 


BT M 


lRPKNT , NOT. MF S- I 




07790 


t> y, 


PHCERS.l.lO 




07800 


87 


LPBD 




07810 NCCMES 


DAC 


40, NO CODE PROVIDED FOR TRANSACTIUN 


NU 7 7 7 ", 


07820 NOTUCH 


PUT 


T t M P C , , , ADM I N <UfN,. WUTf. BACK !j' 


'DA TAiiLL S 


07830 


B7 


f'DNN , , . Rt-MuVI: IF AOMIN RUN SHOULD 


PR iPUCh 


7840 OUTSWL 


C 


CRIT 1 ,PHHCRS 





11073 16 02380 03424 
11082 32 09239 00030 
11094 26 02310 11162 
11106 27 02530 02525 
11118 16 00565 11137 
11133 49 00716 00030 
11137 00002 22 
11139 00335 11145 

11144 00001 • 

11145 00036 119783 
11151 00003 003 
11154 00006 00000' 
11164 00005 04216 
11034 

11033 00000 



069 38 

06938 24 07921 02727 
06950 46 07888 31200 
06962 24 07831 02729 
06974 46 07090 01230 
06986 24 07841 02729 
06998 46 07090 01200 
07013 46 07158 00930 
07022 34 00000 00102 
07034 34 00000 00132 

07046 39 07843 OOIOO 
07058 34 00000 00132 
07073 48 00000 OOOj's 
07082 49 03424 00330 
07093 12 07113 00302 
07102 24 03345 02881 
07114 46 07090 01233 
37126 11 07113 00332 
071 iH 15 07113 30333 
37149 00001 
07153 49 071 70 00333 
0715H 15 03326 03331 
07173 14 32893 3414* 
0718? 46 07414 01230 
07194 26 37265 07812 
7206 11 7265 0033 1 
37218 U 37227 30331 
7233 24 0722 7 1954 ') 
3/242 46 07446 3 113 3 
07254 43 07206 33033 
0/26i 25 37411 3722 7 
37278 25 07409 J7226 
37293 25 37437 37225 
7332 17 03744 07334 
37314 11 33325 900)1 
07326 49 7236 0033 j 
Q7335 003 8 
07414 16 00565 74 J 7 
7426 49 00532 37H83 
37433 49 37632 30333 
07446 24 02526 03322 

ft 



07850 




BL 


NOGO 






07458 


47 


07506 


01300 


07860 




C 


CRIT3, PHCERS, ,CHECK 


CUTOFF 




07470 


24 


02529 


03325 


07870 




BL 


NOGO 






07482 


47 


07506 


01300 


07880 




BTM 


GETADJ,WC+9»20,71i, 


LINK TO Dl 




07494 


17 


02618 


02492 


07890 


N0G0 


TD 


FLFX » PHBfcRS 






07506 


25 


07725 


03322 


07900 




TD 


FLFX-2.PHBERS-1 










w 1 f C D 


UJJi i 


07910 




TD 


FLFX-4.PHBERS-2 






07530 


25 


07721 


03320 


07920 




TD 


FLF2 , PHCERS 






07542 


25 


07771 


03325 


07930 




TD 


FLF2-2.PHCERS-1 






07554 


25 


07769 


03324 


07940 




TD 


FLF2-4 , PHCERS- 2 






07566 


25 


07767 


03323 


07950 




RCTY 








07578 


34 


00000 


00132 


07960 




WATY 


NOMMS 






7590 


39 


07675 


00100 


07970 


BDNN 


BD 


MONCAL »LCSW 






07602 


43 


00796 


03326 


07980 




BNC1 


MONCAL,,, *»«* 


SWITCH I ON FOR BATCH RUN »«* 


07614 


47 


00796 


00130 


07990 




BNF 


•♦24,PRSW 






07626 


44 


07650 


02522 


08000 




K 


t971 






07638 


34 


00000 


00971 


08010 




BTM 


GETADJ,WC+6*20 






07650 


17 


02618 


02422 


08020 




BTM 


GETADJ,WC+7*20, 711, LINK TO B 




07662 


17 


02618 


02442 


08030 


NCMMS 


DAC 


23, ERROR CUT-OFF ~ 


» » 




07675 


00046 




08040 


FLFX 


DSAC 


3,777 






07725 


00006 




08050 




DAC 


20, LANGUAGE ERRORS 






07727 


00040 




08060 


FLF2 


DSAC 


3,777 






07771 


00006 




08070 




OAC 


18, REFERENCE ERRORS 






07773 


00036 




08080 


TOSWAD 


DSA 


#- » 






07812 


00005 00000 


08090 


XREFC 


DSAC 


4.XREF- 






07821 


00008 




08100 


TITLC 


DSAC 


5, TITLE 






07831 


00010 




08110 


ADM I NC 


DSAC 


5, ADMIN 






07841 


00010 




08120 


NTITC 


DAC 


19, TITLE CARD MISSING' , .ACCORDING 


TO MCCOY 


07843 


00038 






T EM PC 


DD 


, bC+20, , , A 






07880 


00002 22 
















07882 


00005 02322 














0/887 


00001 • 


u 


08140 


FCRTHC 


TD 


CNT, INPUr+20 






07888 


25 


0H235 


02 741 


08150 




TD 


CNT-1, INPUT+18 






07900 


25 


08234 


02739 


08160 




TD 


CN1-2, INPUT+16 






0/912 


25 


08233 


0273 / 


08170 




SF 


CM -2 






07924 


32 


08233 


00300 


08180 




SM 


CNT, 1, 10 






07936 


12 


08235 


00301 


08190 




TF 


TDMTR+1 1, TOSWAD 






07948 


26 


08283 


07812 


08200 




A 


i V TR + 1 I, CNT 






/J60 


21 


08283 


08235 


08210 




TFM 


CCUL, INPUT+-22, , SET POINTER ON 


XREF 


079 72 


16 


08091 


02743 


08220 




TFM 


CMC* 11 , INi'UT + 2? 






07984 


16 


0R175 


02743 


08230 




TF 


AGOGO+ 1 1 , HEODSA+8'5 






07996 


26 


08495 


19644 


08240 




MM 


CNT, 5, 10 






08008 


13 


0823b 


3 5 


08250 




A 


AGOGO+11,99 






OH020 


2 1 


08495 


00399 


08260 




SM 


AGUGO+ll, 5, 10 






08032 


12 


08495 


00335 


08270 


NUL AB 


AM 


CMC + 11,8, 10 






08044 


1 1 


08175 


00038 


03280 




TFM 


l.AM + 6, CLABL-6 






0«056 


16 


08134 


09338 


09290 




TF 


CL ABL , CLR tf> 






08068 


26 


09404 


3 3 5 1 


08300 


8L SUP 


C 


"C^ERO,»-» 






08080 


24 


OBI 15 


0033 3 


08310 


CCOL 


DS 


, • 






08091 


00000 




08320 




BE 


CMC- 12 






08092 


46 


08152 


012 3 3 


08330 




TFM 


CAM+11,0, 10 






08104 


16 


08139 


00330 


08340 


CC£ER0 


OS 








08115 


00000 




08350 




A 


CAM* 11, CCOL, 11 






0811S 


21 


08139 


0809 1 


08360 


CAM 


AM 


»-»,*-» 






Otf 128 


1 1 


00000 


00330 


08370 




AM 


CAM+6, 2, 10 






08140 


11 


08134 


00332 


08380 




AM 


CCUL ,2,10 






08152 


1 1 


08091 


00332 


083<30 


CMC 


CM 


CCOL,*-« 






08 164 


14 


08091 


00330 


08400 




BL 


RLSUP 






081 76 


4 / 


08080 


01330 


08410 




AM 


TDMTR+ 11, 1, 10 






08188 


1 1 


08283 


3003 1 


08420 




AM 


CNT, 1,10 






1> 2 


11 


08235 


00031 


08430 




AM 


AGUGO+ll, 5, 10 






08212 


11 


08495 


00035 


08440 




CM 


1 FDDSA+9*5,0,9 






08224 


14 


1964-3 


00030 



V 



08450 CNT 


OS 


f * 








08235 


00000 




08460 


61- 


CXEND + 24 








08236 


47 


08308 


01303 


08470 


CM 


CLABLtO, 1011 








08243 


14 


09404 


00000 


08480 


BNE 


NOSKIP 








08260 


47 


08328 


01203 


08490 TDMTR 


B 


QCEND,*-*, 7 








082/2 


49 


08284 


00330 


08500 QCEND 


CM 


CCUL, INPUT+142, , 


IF 


CARD OVER 




08284 


14 


08391 


02863 


085L0 


BL 


NULA8 








08296 


47 


08044 


01333 


08520 


BLC 


GUTC2 , , , **»FILL 


IN*** 




0B308 


46 


07158 


00930 


08530 


B7 


READ 








08320 


49 


03424 


00300 


08540 NOSKIP 


BNF 


AGOGO- 12, TDMTR +11 


,11 






08328 


44 


08472 


08283 


08550 


TD 


TWOME2+2.CNT-2 








08340 


25 


08465 


082 3 3 


08560 


TO 


TW0ME2+4.CNT-1 








08352 


25 


0846/ 


38234 


08570 


TD 


TW0ME2+6.CNT 








08364 


25 


08469 


38235 


08580 


BTM 


ERPRNT , TWOMES- 1 








08376 


17 


03 744 


08438 


08590 


AM 


PHCERS, 1,10 








08388 


11 


03325 


00331 


08600 


B7 


QCEND 








08400 


49 


08284 


00030 


08610 TWOMES 


DAC 


27, TRANSACTION CODED 


TWICE, NO 




08409 


00054 




08620 TW0ME2 


DAC 


5, 777' 








08463 


00010 




08630 


TON 


TDMTR-H 1,1,611 








08472 


15 


08283 


00331 


08640 AGOGO 


TF 


TFNO+ 1 1 , »-» , , 


FILL IfJ FROM 


HLD0SA+8»5 


08484 


26 


08777 


30333 


08650 


TF 


»t-23,WC+18, , 


AD OF START 


OF SYMTAB 


08496 


26 


08519 


02 323 


08660 


C 


OLAtSL,*-*, , 


SEEK LABEL 




08508 


24 


09404 


00330 


08670 


BE 


hAVIT 








08520 


46 


08 718 


012 3 3 


08680 


AM 


*-l3, 14, 10 








0H532 


1 1 


08519 


00314 


08690 


BNR 


AGOGO+24.AGOGO+35 


, U 






0b544 


45 


08508 


08519 


08700 


TD 


N L B M E S + 9 , C N T 








0B556 


25 


08715 


08235 


08710 


TD 


NLBMES+88,CNT- 1 








08568 


25 


08713 


08 2 34 


08720 


TD 


M.BMLS+C6,CNT-2 








08580 


25 


08 fl I 


Q8233 


08730 


BTM 


ERPRNT, NLBMES- 1 








08592 


17 


03744 


08 52 4 


08740 


AM 


PHCERS ,1,10 








Q8604 


11 


03325 


00331 


08750 


B7 


GCEND 








08616 


49 


08284 


00330 




















f 3 


08760 NLBMES 


DAC 


';7,N0 PRUG FOUND 


FOR 


THIS TR AN 


TYPL, HANS NO 777V 


06625 


00094 




08770 HAVIT 


AM 


AGOGO+35, I, 10 








08718 


U 


38519 


00331 


08780 


TDM 


AGOGO+35, 1,611 








oa no 


15 


08519 


30031 


08790 


AM 


AGOGO-t-35, 5, 10 








08742 


1 L 


08519 


00335 


08800 


TF 


TBNR* 1 I ,AGUGj+-35, 


11, 


AO DF STA4T 


OF ROUTIiNt 


08754 


26 


0H881 


08519 


08810 TFNO 


TF 


MO AMIS,*-*, , 


PROCESS TRANSACTION HtAUCR 


08766 


26 


09057 


00330 


08820 


AM 


TFNO+11,3, 10 








08778 


11 


08777 


00333 


08830 


TF 


L I TS , TFNO-f 1 1 , 1 I 








08790 


26 


09005 


08 7 7 1 


08840 


BNF 


NSUBL » NOAM T S 








08802 


44 


08858 


09357 


08850 


CF 


NO AM T S 








08814 


33 


09057 


00000 


08860 


AM 


TFNO+.l 1 , 5, 10 








08826 


1 I 


08777 


00335 


08870 


TF 


SUBAC, T FNO+ 11,11 








08838 


26 


09365 


08 7 7 I 


08880 


87 


• + 20 








0K850 


49 


08870 


00033 


08890 NSL.RL 


TFT' 


sun ah , 








08858 


16 


09 165 


oooqo 


039C0 


DC 


1, ' , * 








0U869 


0000 I 




08910* 




















08920* 


OBJECT DECODING LOUP 
















08930* 




















08940 TBNR 


1 D 


AMu2 + ! 1, «-* 








OhH70 


25 


09089 


0003 


08950 


BNF 


ADD, AKH2+ 1 1 








00832 


44 


08926 


093^9 


08960 


CF 


/ . ! B 2 » 1 1 








08H94 


31 


09389 


00333 


08970 


TDM 


CO-t 1 , ? 








0*936 


15 


09367 


00332 


08980 


B7 


*«-20 








0H918 


49 


09938 


00333 


08990 ADD 


TDM 


CC< 1, 1 








0t;926 


15 


09367 


30331 


090C0 


AM 


TBNR + 11,5, 10 








0B938 


11 


8 8 81 


00335 


09010 


BNR 


MORYET, TBNR+ll, 1 1 








0>.;953 


45 


18 9 7 3 


«-8 81 


09020 


B7 


CCEND 








08 952 


49 


08284 


00333 


09030 MORYET 


BNR 


_.OMAM T , AMB2+ 1 I 








08970 


4 5 


0904 6 


093«9 


09040 


BNG 


CISAMT,AM>12*-11 








Qii982 


55 


39314 


39089 


09050 


TDM 


AMB2*-1 1, » 








08994 


1 5 


39089 


003 33 


09060 LITS 


DS 


f * 








09005 


00000 





93 



09070 




B7 


•♦20 


09006 


49 


09026 


00300 


09080 


DISAMT 


TO 


AMB2+11.LITS-1 


09014 


25 


09089 


09334 


09090 




BO 


SOMAMT, AMB2+1 1 


09026 


43 


09046 


090>i9 


091C0 




B7 


SOMAMT+24 


09033 


49 


09370 


00333 


09110 


SOMAMT 


CM 


AflB2 + ll,*-» 


09046 


14 


09089 


00330 


09120 


NOAMTS 


OS 


,* 


riQnt;7 


00000 




09130 




BNH 


AMB2 


09058 


47 


09078 


01130 


09140 




B7 


NXT 


09073 


49 


09378 


00330 


09150 


AMB2 


MM 


*+9,L*100, 710 


09078 


13 


09087 


00733 


09160 




BNZ 


NUMAMT 


09090 


47 


09134 


01230 


09170 




TO 


AMB2+ll,LITS-2 


09102 


25 


09089 


09033 


09180 




CF 


AM32+11 


091 14 


33 


09089 


00330 


09190 




B7 


CISAMT+12 


09126 


49 


09026 


00300 


09200 


NUMAMT 


TF 


CO+ll.TFNO+ll 


09134 


26 


09377 


08777 


09210 




A 


C0+ll,99 


09146 


21 


09377 


00099 


09220 




TF 


C0+6,TBNR+ll, 11 


09158 


26 


09372 


0888 1 


09230 




CM 


C0f6,L,10 


09170 


14 


09372 


0003? 


09240 




BH 


CO 


09182 


46 


09366 


01103 


09250 




BNR 


SLOKC, SUBAO 


09194 


45 


09354 


09365 


09260 




TO 


SLMES+76.CNT 


09206 


25 


09351 


08235 


09270 




TO 


SLMES+74,CNT-l 


09218 


25 


09349 


08234 


09280 




TO 


SLMES+72.CNT-2 


09230 


25 


09347 


8 2 3 3 


09290 




BTM 


ERPRNT.SLMES-l 


09242 


17 


03744 


092 74 


093C0 




AM 


PHCERS, 1,10 


09254 


1 1 


33325 


00331 


09310 




B7 


NXT 


09266 


49 


09378 


0033 3 


09320 


SLICES 


DAC 


40.SUBLEDGER USED ERRONEOUSLY, TRAN NO 777« 


09275 


00080 




09330 


SLOKC 


AM 


CO +6, »-» 


09354 


11 


09372 


00330 


09340 


SUBAO 


OS 


i « 


09365 


00000 




09350 


DO 


A 


•-»,»-« 


09366 


21 


00000 


00030 


09360 


NXT 


AM 


T^M.R + 11,1.10 


09378 


11 


08881 


00331 


09370 




B7 


TBNR 


09390. 


49 


08870 


0033 



14 



09380 


CLABL 


OS 


8 




09390 


TWOSC 


DC 


6,200002 


09400 


HEND 


DSAC 


4 , END 




09410 


BEG INC 


TE 


TOSWAD 


,HEDDSA+6*5 


09420 




SM 


TOSWAD 


, L , 10 


09430 




S 


TOSWAD 


, HEDDSA+9*5 


09440 




BTM 


GET AD J 


,WC+20 


09450 




HTM 


G l 1 A D J 


, WC + 5«20,7ll 


09460 


CTCD 


TFM 


WC+5*20+l8, LABCHK, 


09470 




TFM 


hC+ 1 8 , 


BEG INC 


09480 




TFM 


WC+13, 


LABCHK 


09490 




TFM 


NUAD, LABCHK 


09500 




TF 


WC+O.CLDSA-2 


09510 




BT 


put/ 1 rj 


, POTADJ-l 


09520 




TRA 







09530 CLDSA DSA C 1" CO-L ABCHK + 1 9 

09540 rCD ; :tld 

09550 ENDC OS , b EG INC- 1 

09560****************************** 

09570* 

09580* PHASE 01 -- 

09590* 

09600****************************** 

09610 OORG I ABCHK 



WITH CARD ALREADY R t AD 



t*»***«r»*»****» #*■ * **»»***»****»»***»#l 



OUTPUT LEDGERS 



>*•»»»»»*»»*»*»»»»»*♦*»*#*»»»»«»»< 



09404 
09410 
09419 
09423 
09432 
09444 
09456 
09468 
09483 
09492 
09534 
09515 
09528 
09543 
09552 
0'>564 
095 71 
39573 
095 78 
09579 
095 8 5 
09588 
09598 
09483 
3^419 



00008 
00006 
00008 

26 07812 19634 
12 07812 00337 
22 37812 19649 
17 02618 32322 
17 32618 32432 
16 32423 05938 
16 02323 39420 
16 02315 36938 
16 32565 3693'i 

26 02310 39596 

27 02530 32529 
16 0356 1 ) 395 7 1 
49 03716 03330 

30302 22 
30305 09579 
00301 * 
00306 119783 

30303 )3 
00306 30033' 
00305 32642 



9* 



09620 


EDIT 


TF 


ED I T A , EDI TF , , CHANGE TO EDITE LATtR 


06938 


26 


07371 


07311 


09630 




TF 


EDCM+6.EDIT-1 


06950 


26 


07084 


0693 7 


09640 




BNF 


•+20.EDCM+6, 11 


06962 


44 


06982 


070:44 


09650 




B7 


« + 32 


06974 


49 


070Q6 


00300 


09660 




TF 


ED I TA, CLR + 2 


06982 


26 


07371 


03347 


09670 




CF 


EDITA-3 


06994 


33 


07368 


00000 


09680 




TO 


fcDlTA-4,EDCM+6, 11 


7006 


25 


07367 


07384 


09690 




CF 


FDITA-4 


07018 


33 


07367 


00330 


09700 




SM 


EDCM+6, 1, 10 


0703D 


12 


07084 


00331 


09710 




TO 


bDITA-6, EDCM+6, 11 


07042 


25 


07365 


07084 


09720 




SM 


fcDCM+6, 1, 10 


07054 


12 


07084 


00331 


09730 




TFM 


TDED + 6 » ED I TA-8 


07066 


16 


07144 


07363 


09740 


EDCM 


CM 


•-•,0, 1011 


07078 


14 


00000 


00330 


09750 




BE 


cur ED 


7090 


46 


07186 


01230 


09760 




SM 


TDnD+6,2,10 


07102 


12 


07144 


00332 


09770 




c 


C23DI, TDED+6, 11 


07114 


24 


07213 


07144 


09780 




BE 


«-24 


07126 


46 


07102 


01230 


09790 


TOED 


TD 


•-♦•EDCM+6, 11 


07138 


25 


00000 


37334 


09800 




SM 


EDCM+6, I, 10 


07150 


12 


07084 


00331 


09810 




BNF 


EDCM, EDCM+6, 11 


07162 


44 


07078 


0/0H4 


09820 




HD 


LSTEO, EDCM+6, 11 


07174 


43 


07214 


07084 


09830 


OUT ED 


SM 


TDED+6, 1, 10 


07186 


12 


07144 


00331 


09840 




SF 


TDED+6,,6 


07198 


32 


07144 


00330 


09850 




BB2 




07213 


42 


00030 


30300 


09860 


C2301 


DC 


2,23 


07213 


00002 




09870 


LSTED 


SM 


TDED+6 ,2,10 


07214 


12 


07144 


00032 


09880 




C 


C23DI , TDED+6, 1 1 


07226 


24 


07213 


07 144 


09890 




BE 


«-24 


07238 


46 


07214 


01233 


09900 




TD 


TdfcD+6, EDCM+6, 611 


07250 


25 


07144 


07384 


09910 




CF 


TDED+6,,6 


07262 


33 


37144 


3O3J0 


09920 




B7 


OUTED 


07274 


49 


07186 


3033 J 



09930 


EDI TF 


DSAC 


13, 77, 7 77, 777, 77CR, , 


07311 


00330 




09940 


EDITE 


OS AC 


15,77,777,777,77- ,, 


07341 


00330 




09950 


EDI T A 


DS 


JO 


073 71 


00030 




09960 




DS 


c 


07373 


00002 




09970 


Bit I N 


BO 


K/l.PRSW 


0/374 


43 


07436 


02522 


09980 




PUT 


PUNCH 


0/386 


16 


00565 


07439 










Q/398 


49 


00532 


03327 


09990 




SM 


ELL IN- I, 1, 10 


0/410 


12 


073 73 


00031 


10000 




BP 


BLLIN+12 


07422 


46 


07386 


0113 


10010 




BB2 




07434 


42 


00000 


00333 


10020 


K71 


WN 


CD+7,900 


7436 


38 


02719 


00930 


10030 




SM 


BLLIN-1,1,10 


0/44B 


12 


07373 


33331 


10040 




BP 


K71 


07463 


46 


07436 


0113 3 


10050 




8B2 




0/472 


42 


33300 


000 30 


10060 




DS 


5 


0/478 


00005 




10070 


HEDLIN 


BD 


K6l,PRSW,7 


07483 


43 


07536 


32522 


10080 




TF 


0UTPUT + 112,HEDLI -J-l, li 


7492 


26 


03175 


7 4 7 9 


10090 




PUT 


DPUNCH 


Q7504 


16 


00565 


37527 










0/516 


49 


00532 


03335 


10100 




B7 


CRS 


07528 


49 


07780 


00330 


10110 


K61 


Tf 


un pur + 1 }->.,>:i ; i r>i- 1 , n 


7536 


26 


03201 


37479 


10120 




PUT 


PRINT 


/548 


16 


03565 


3 757 1 










7560 


49 


00532 


33334 


10130 




B7 


CRS 


75 72 


49 


07780 


0033.) 


10140 


T ITLO 


BD 


K51.PRSW 


0/580 


43 


7708 


02 52 2 


10150 




TR 


CUTPUT-1,TITSAV-1 


0/592 


31 


03062 


02890 


10160 




TFM 


trsc + 1 i, iiinuT ou,t?wT 


0/604 


16 


07639 


03063 


10170 




AM 


TRSC+11,2,10 


0/bl6 


1 1 


07639 


00032 


10180 


TRSC 


BNR 


«-12,»-» 


07628 


4 5 


07616 


00330 


10190 




TFM 


*-l,3,'.l3 


7640 


16 


07639 


00330 


10200 




TF 


CUTPUT+8,CLR+8 


07652 


26 


03071 


3 3 5 3 



V 



10210 




TFM 


OUTPUT+158, 14, 10 


07664 


16 


03221 


00314 


10220 




PUT 


PUNCH 


07676 


16 


00565 


07699 










07688 


49 


00532 


03327 


10230 




B7 


CRS 


07700 


49 


07780 


00000 


10240 


K51 


TR 


OUTPUT+39, Til SAV-1 


07708 


31 


03102 


02890 


10250 




K 


,971 










10260 




TF 


0UTPUT+48.CLR+8 


07732 


26 


03111 


03353 


10270 




PUT 


PRINT 


07744 


16 


00565 


07 /6 7 










07756 


49 


00532 


03304 


10280 




TF 


CUTPUT+238.CLR+78 


07768 


26 


03301 


03423 


10290 


CPS 


TF 


OUTPUT+158, CLR+78 


07730 


26 


03221 


03423 


10300 




TF 


CUTPUT+78.CLR+78 


07792 


26 


03141 


03423 


10310 




BB2 




07804 


42 


00000 


00000 


10320 


OUTL IN 


BD 


K41, PRSW 


07806 


43 


07850 


02522 


10330 




PUT 


PUNCH 


7818 


16 


00565 


078 + 1 










7830 


49 


00532 


0332/ 


10340 




B7 


CRS 


07842 


49 


07780 


00 000 


10350 


K41 


PUT 


PRINT 


7850 


16 


00565 


07873 










07862 


49 


00532 


3 3 3 4 


10360 




BNI 


CRS-12, .3400 


07874 


47 


07768 


034 


10370 




K 


,971 


07886 


34 


00000 


00971 


10380 




B7 


CRS-12 


7898 


49 


07768 


00000 


10390 


ASTS 


DSAC 


33i ********************************* 


79 71 


00366 




10400 


FLO I 


OS A 


UUTPUT+6 


07976 


00005 03069 


10410 


FLD2 


OS A 


CUTPUT+96 


7981 


00005 03159 


10420 


FLD3 


OSA 


OUTPUT+118 


7986 


00005 03181 


10430 


FLD4 


DSA 


CUTPUT+133 


07991 


00005 03201 


10440 


FLl)5 


DSA 


GUTPUT+158 


07996 


00005 03221 


10450 


TIMES 


DSAC 


5 , T I TLE , 


0800 7 


00010 




10460 


ACTME2 


DSAC 


6, ACT NO, 


08019 


00012 




10470 


BEGBAL 


DSAC 


9, BEG BAL ,,, 


08037 


00018 


7 6 


104 80 


TUTCH 


DSAC 


10, TOTAL CR , , 


0805 7 


00020 




10490 


TOTDB 


DSAC 


10.T0TAL DB ,, 


08077 


00020 




105C0 


ENDBAL 


OSAL 


11, ENDING BAL 


08099 


0002? 




10510 


INCSTA 


DSAC 


33, INCOME STATEMENT ,, 


08165 


00066 




10520 


ARTUT1 


OC 


L,0 


081 72 


00007 




10530 


ART0T2 


DC 


I ,0 


OB 1 79 


00007 




10540 


ART GT 3 


DC 


L ,0 


a 1 ;l 6 


0000 7 




10550 


ART0T4 


DC 


l.,0 


8 1 9 3 


00007 




10560 


TGTARS 


DSAC 


.11, TOTALS $, 


8 215 


0002? 




10570 


ARTB 


DSAC 


13. ACCOUNTS RECEIVABLE TRIAL BALANCE 


08231 


00066 




10580 


GLLQDP 


TF 


GLBNF+1 1 , «-* 


Otf?R? 


2 6 


08 377 


00000 


10590 




TF 


nUTPtjT + 6,GLBMF + ll, 11 


08294 


2 6 


03069 


08 3 1 7 


10600 




AM 


GLBMF +11, 1, 10 


08306 


1 1 


08377 


000.') 1 


10610 




SF 


CL.BNF + 11, ,6 


083] 8 


3? 


0837 7 


00000 


10620 




TF 


T 11 ABD+6 , FLD1 


08330 


26 


0« 3">6 


079 76 


10630 




AM 


CLRNF+11,2,10 


8 342 


1 1 


OH 37 7 


00002 


10640 




AM 


TFLABD+6, 2, 10 


08354 


1 1 


08396 


00002 


10650 


GLBNF 


BNF 


»~24,»-* 


08366 


44 


08342 


00000 


10660 




SM 


1, 10 


08378 


12 


08377 


00001 


10670 


TFLABD 


r f 


*- », GL BNF+ 11,11 


08390 


26 


00000 


08377 


10680 




AM 


tDGLl+6,S,lO 


08402 


1 1 


08 444 


2 1 


10690 




RT 


tC!T,CDCLl+l 1 


08414 


2 7 


06938 


8 4 + 9 


10700 




TF 


FLD2.EDI TA ,6 


08426 


26 


07981 


7 3 7 1 


10710 


EDGL1 


TF 


a — # , *— * 


Ct)438 


?6 


00 000 


00 0'.: 


10720 




BT 


ED I T , E DGL 2 + 6 


08450 


2 7 


6 938 


085 04 


10730 




TF 


FLD3,EDITA,6 


08462 


26 


07986 


073 71 


10740 




A 


EDGL1+6,EDGL2+6,611 


8 4 7 4 


2 1 


08444 


08504 


10750 




AM 


EDGL1+11,L, 10 


08485 


1 1 


08449 


7 


1 0760 


EDCL2 


S 


«-*,EDGLl+ll,l 1 


08498 


22 


00000 


8 4 + 9 


10770 


D0FL3 


AM 


EDGL2+6, L , 10 


08510 


1 1 


08504 


00 7 


10780 




BT 


EDIT, EDGL2+6 


08^22 


27 


06938 


035 0^ 



99 



10700 




TF 


FLD4,CDITA,6 


08534 


26 


07991 


07371 


10800 




S 


EDGL1+6,EDGL2*6,611 


08546 


22 


08444 


08534 


10810 




AM 


EDGL l+ll.L, 10 


08558 


11 


08449 


0003 7 


10820 




S 


EDGL2+6,EDGLl+ll,6ll 


08573 


22 


08504 


08449 


10830 


Q0FL4 


BT 


EDIT.EDGL1+6 


00582 


27 


06938 


08444 


10840 




TF 


FLD5,EDITA,6 


08594 


26 


07996 


07371 


10850 




ST 


LUTL IN,UUTL IN- I 


08606 


27 


078Q6 


07835 


10860 




AM 


EDGLl+ll.L, 10 


08618 


U 


00449 


003D7 


10870 




AM 


EDGL2+6, 2»L, 10 


08630 


11 


08504 


00014 


10880 




AM 


GLLOOP + 1 1 , S, 10 


08642 


11 


08293 


00035 


10890 




8NR 


GLLO0P,GLLOOP+ 11, 11 


08654 


45 


08282 


0829 3 


10900 




BTM 


BLLIN,4,10 


08666 


17 


07374 


00034 


10910 




BTM 


HEDL IN, ASTS 


0H678 


,17 


07480 


79 71 


10920 




BT 


l-EDL IN, T I TLES 


08690 


27 


07480 


19636 


10930 




BTM 


BLL IN, 1, 10 


08702 


17 


07374 


00031 


10940 




BTM 


HEOL IN, ARTB 


08714 


17 


07480 


08281 


10950 




BTM 


BLL IN, 1, 10 


08726 


17 


7374 


00031 


10960 




BTM 


IV.OL IN, Ai fS 


08738 


17 


07480 


07971 


10970 




BTM 


«LLIN,2,10 


08750 


17 


07374 


00032 


10980 




TF 


•+30.FLD1 


08762 


26 


08792 


07976 


10990 




AM 


•+18,20,10 


08774 


1 1 


08792 


00020 


1 1000 




TF 


•-», ACTME2 


0»S7H6 


26 


00003 


3831 9 


1 1010 




AM 


•-6,20,10 


08798 


11 


08792 


00020 


1 1020 




TF 


•-18, TIMES, 6 


08810 


26 


08792 


0803 7 


1 1030 




TF 


FLD? , BEGU AL , 6 


08822 


26 


7981 


080 57 


11040 




TF 


FLD3, TUT DB,6 


08834 


26 


07986 


080 7 7 


1 1050 




TF 


FLD4,T0TCR,6 


08846 


26 


07991 


0835 7 


U060 




TF 


FLD5 , ENDBAL , 6 


08858 


26 


7 996 


08399 


11070 




Bl 


CU"lL!N,CUILIN-l 


088 70 


27 


07806 


0783'j 


i ioeo 




BTM 


ELLIN, 1,10 


08882 


17 


07374 


00031 


11090 




TF 


ARBNF+ 11, HHD0SA+4*5 


08894 


26 


09037 


19624 
















1 oO 


11100 




SM 


ARBNF+11,2, 10 


08906 


12 


09037 


30032 


11 1 10 




TF 


EOAR2+6,HtOOSA+7»5 


08918 


26 


09188 


19639 


11120 




TF 


EDARl+ll,HEODSA+3»5 


08930 


26 


09109 


19519 


11130 




TT 


L0ARl + 6,LI!AR? + 6 


08942 


26 


09104 


091 BH 


11140 




SM 


EDAR1+6,S-2»L, 10 


0>3954 


12 


09 104 


3003 7 


1 1 150 


APLOOP 


TF 


TEARLB+6, f L01 


08966 


26 


39056 


07976 


11160 




AM 


I F ARL D + 6, (i , 10 


089 78 


1 1 


09056 


0033b 


11170 




AM 


ARBNF+ 1 1 , 1 , 10 


OH 99 


1 I 


0903 7 


30331 


11180 




AM 


TFARLB+6,2, 10 


0903? 


I 1 


09056 


33332 


11190 




AM 


APBNF+ 11 , 2, 10 


09014 


I 1 


39337 


00032 


11200 


ARB MF 


RNF 


»-24,»-» 


09026 


44 


09002 


303 3 J 


11210 




SM 


ARBNF+ 11 , 1 , in 


09038 


12 


09037 


0333 1 


11220 


TFARLB 


Tr 


• -* i ARLS'JF + 11,11 


090 5 J 


26 


00300 


09 3 3 7 


11230 




AM 


EDAR1+6,S,1) 


09062 


11 


09 104 


3032 1 


11240 




BT 


EDIT ,E0ARl+l I 


09074 


27 


06938 


39139 


U250 




TF 


FLD2.EDI 1 A, 6 


090-36 


26 


07981 


073 7 1 


1.1260 


EDARi 


TF 




09098 


26 


OOJOO 


003 j J 


11270 




A 


ARTI)T1,»-1, 11 


09113 


21 


38172 


39139 


11280 




HI' 


E D I T r E 0AK2+6 


09 122 


27 


06938 


39188 


11290 




TF 


FL.U3, EDI r.'V,6 


09 134 


26 


07986 


0737 1 


11300 




A 


AR TO T 2 , EDAi< 2 + 6 , 11 


09 146 


21 


08179 


3918!! 


11310 




A 


EDARl+6,E0AR2 + 6, 61 I 


09159 


21 


0)104 


091So 


11320 




AM 


GO A3 1 + 1 1 , L , ! 


091 73 


1 1 


09109 


300 3 7 


113 30 


EDAR2 


s 


«-*, t DARl + 11, 11 


09 H 2 


22 


30000 


09139 


11340 


U0AR3 


AM 


£0AR2+6,L , 10 


09194 


I 1 


09188 


300 3 7 


11350 




BT 


EDIT, E DAR 2 + 6 


09206 


2 7 


06938 


0918b 


11360 




TF 


f LD4 , ED II A , 6 


09218 


26 


07991 


373 71 


11370 




A 


ART0T3,FDAR2+6, 11 


092 33 


21 


08 186 


09186 


11380 




S 


tDARl + 6,E0AR?+< ; >,6H 


09242 


22 


39134 


09 1 9 8 


11390 




AM 


ECAR 1+11,1 , 10 


09254 


11 


39109 


0033 7 


11400 




S 


ED«R?+6,tOARl+ll,611 


09266 


22 


09188 


091 39 



to) 



1 1410 


D0AR4 


ST 


EDIT, EDAR 1+6 


09278 


27 


06938 


09104 


11420 




TF 


FL05,EDITA,6 


09290 


26 


07996 


073fl 


11430 




BT 


0IJTL1N,0UTLIN-1 


09302 


27 


07806 


07805 


11440 




A 


ART0T4,EDARl*6,ll 


09314 


21 


08193 


09104 


11450 




AM 


EDAR 1+11, L, 10 


09326 


11 


09109 


00037 


1 1460 




AM 


EDAR2+6,2*L,10 


09338 


11 


09188 


00014 


11470 




BNR 


ARL00P,EDAR1+11,11 


09350 


45 


08966 


09109 


11480 




BTM 


BLLIN,2,10 


09362 


17 


07374 


00002 


11490 




TF 


♦+30, FLDl 


09374 


26 


09404 


07976 


11500 




AM 


•+18,68,10 


09386 


11 


09404 


00068 


11510 




TF 


*-»,TOTARS 


09398 


26 


00000 


08215 


11520 




BTM 


ED I T» ARTOT 1 


09410 


17 


06938 


08172 


11530 




TF / 


FLD2 , ED I T A ( 6 


09422 


26 


07981 


07371 


1 1540 




BTM 


EDIT, ART0T2 


09434 


17 


06938 


081 79 


11550 




TF 


FLD3,EDITA,6 


09446 


26 


07986 


073 7 1 


11560 




BTM 


ED I T , ARTOT 3 


09458 


17 


06938 


08186 


11570 




TF 


Fl D4,EDITA,6 


09470 


26 


07991 


07371 


11580 




BTM 


LD I T , ART0T4 


09482 


17 


06938 


38193 


11590 




TF 


FL D5 , ED I T A ,6 


09494 


26 


07996 


07371 


1 1600 




BT 


CUTLIN,OUTLIN-l 


09506 


27 


07806 


07805 


11610 




BT 


T ITL0,TITL0-1 


09518 


27 


07580 


07579 


11620 




BTM 


HFDL IN, AS TS 


09533 


17 


07480 


07971 


1 1630 




BT 


HEDL IN, TITLES 


09542 


27 


07480 


1968b 


1 1640 




BTM 


RLL IN, 1, 10 


09554 


17 


07374 


00031 


11650 




BTM 


hEDL IN, INC ST A 


04566 


1 7 


07480 


08165 


1 1660 




BTM 


BLL IN, 1, 10 


09578 


17 


07374 


00331 


11670 




BT 


HEDL IN,TITLES+2*5 


09590 


27 


07480 


19696 


11680 




BTM 


HEDL I N , AS TS 


09602 


17 


07480 


07971 


1 1690 




BTM 


GETAOJ,WC +10*20, 711 


09614 


1 7 


02618 


025 32 


11700 


GLOUT 


TF 


GLL00P+ll,HEDDSA+5»5 


09626 


26 


08293 


19629 


11710 




TF 


EDGL2+6,HE0DSA+6*5 


09638 


26 


08504 


19634 
















1 OX 


11720 




TF 


EDGLl+ll,HEDDSA+2»5 


09650 


26 


08449 


19514 


1 1730 




TF 


FDGL 1+6.EDGL2+6 


09662 


26 


08444 


08.5 34 


1 1740 




SM 


EDGL 1+6,S-2»L, 10 


09674 


12 


0R444 


0033 7 


1 1750 




BT 


TITL0,TITL0-1 


09686 


27 


07580 


075 79 


1 1760 




BTM 


hEDL IN,ASTS 


09698 


17 


07430 


079 7 1 


1 1770 




BT 


HEDLIN, TITLES 


09710 


27 


074H0 


19586 


1 1780 




BTM 


BL L IN, 1,10 


09722 


17 


07374 


00331 


1 1790 




BTM 


HEDL IN, GL f-DG 


09734 


17 


7480 


09999 


1 1800 




BTM 


BLLIN, 1, 10 


09746 


17 


073 74 


30331 


118 10 




BT 


HEDL IN, T I TLES < 5 


09758 


27 


07480 


19591 


11820 




BTM 


HEDL IN, ASTS 


09770 


17 


07480 


079 7 1 


11830 




BH. 


BLL IN, 2, 10 


09782 


1 7 


07374 


00332 


1 1840 




tf 


UUTPUT+6, ACTMES 


09794 


26 


03069 


09933 


1 1850 




TF 


•♦30, FLDl 


09806. 


?6 


9 8 3 6 


379 76 


1 1860 




AM 


•+18,40,10 


09818 


1 1 


09836 


00340 


1 1870 




TF 


• -*, T IMES 


09830 


26 


90000 


0833 7 


11880 




r f 


FLD2,BEGdAL,6 


0984? 


26 


7981 


08337 


11890 




TF 


FLD3 , TOTDB , 6 


09d54 


26 


07986 


08377 


11900 




TF 


FLD4,T0TCR,6 


09866 


26 


7991 


38357 


11910 




TF 


FLD5 , ENDBAL f 6 


09878 


2 6 


07996 


8 9 9 


1 1920 




BT 


0UTLIN,0UTLIN-1 


09H90 


27 


07806 


37805 


11930 




Bl M 


BLL I N , 1 , 10 


09902 


1 7 


07374 


00331 


11940 




BTM 


GETA0J,WC+4*20,711 


09914 


17 


02618 


02332 


1 1950 


ACTMES 


dsac 


4, ACCT 


09933 


00008 




11960 


GLEOG 


OS AC 


33, GENERAL LEDGER ,, 


09999 


00066 




11970 


C1TCD 


B'Jf 


NGPRD,PRSW 


10000 


44 


10072 


02522 


1 1980 




TFM 


Tl Dl ,0UTPUT+16 


10012 


16 


07976 


3 3 7 9 


1 1990 




TFM 


FLD2.0UTPUT+116 


10024 


1 6 


07981 


031 79 


12000 




TFM 


FLD3,0UTPU T+146 


10036 


16 


07986 


03239 


12010 




TFM 


FLD4,0UTPUT+ 176 


10048 


16 


07991 


3 2 3 7 


12020 




TFM 


FLD5,OUTPUT+206 


10060 


16 


H7996 


3 3 2 6 9 



12030 NOPRD 


TFM 


WC+4»2Q+18,GLL00P 


10072 


16 


02430 


0828? 


12040 


TFM 


WC+18,GL0UT 


10084 


16 


0232"0 


09626 


12050 


TFM 


NUAD, EDIT 


10096 


16 


02565 


06938 


12060 


TFM 


*C+13,E0IT 


10108 


16 


02315 


06938 


12070 


TF 


HC+8.D10SA-2 


10120 


26 


02310 


10138 


12080 


BT 


PUTADJ.PUTADJ-l 


10132 


27 


02530 


0252 9 


12090 


TRA 




10144 


16 


00565 


10163 








10156 


49 


00716 


00030 








10163 


00002 22 










10165 


00005 10171 








10173 


00001 • 










10171 


00006 U9783 








10177 


00003 003 








10180 


00006 00000* 


12100 01 OS A 


OS A 


C1TCD-EUIT+IG0 


10190 


00305 03162 


12110 


TCC 


circo 


10000 








12120 ENDD1 


OS 


tGLOUT-l 


09625 


00000 


















12140* 




• 










12150« 




■PHAST: 02 — OUTPUT INCUMfc STATEMENT • 










12160» 




AND BALANCE SHEET » 










12170* 




» 










1 2 1 80« »*» *** 


»»••••* 


• ••»•••••••*« »•»«••••••»»»• »»»•»*»»»•••**»»»•»»•»••*»»• 










12190 


DORG 


TIMES-1 


06006 








12200 BEGN02 


BTM 


CETADJ,WC+2»20 


08006 


17 


02618 


02342 


12210 


TFfi 


f C I T + llfCDITt 


0(3018 


16 


06949 


07341 


12220 


r f 


EDlS+ll.HEDOSA + 'j' 


Oe030 


26 


08149 


19609 


12230 


TF 


TFMD2+ 1 1 , FLD 1 


08042 


26 


08221 


07976 


12240 


AM 


TFMD2+ I 1,20, 10 


08054 


1 I 


08221 


00320 


12250 


TF 


ISBNF+lt.HFODSA 


08066 


26 


08125 


19634 


12260 


SM 


ISBNF+11,2, 10 


080 78 


12 


08125 


00032 



12270 


I SLOOP 


AM 


I SBNF+ 1 1,3,10 


08090 


11 


0812*3 


33333 


12280 




AM 


ISBNF+11,2, 10 


08102 


1 1 


08125 


03332 


12290 


I SBNF 


BNF 


»-l2,*-» 


0<)114 


44 


08132 


00330 


12300 




SM 


«- 1 » 1 » 10 


08126 


12 


08125 


00331 


12310 


EDI S 


TF 


FPITC,»<-» 


08138 


26 


08583 


00330 


12320 




TF 


TFLBIS+11, ISBNF+ll 


08150 


26 


08245 


38125 


12330 




SM 


TFLBIS +11,2,10 


08162 


12 


08245 


00332 


12340 




TFM 


MMiS+1 1, f9, 10 


38174 


16 


08257 


00079 


12350 




S 


MMIS+ll, ISBNF + ll, 11 


0«186 


22 


0825 7 


38L25 


12360 




AM 


ISBNF+11,2, 10 


08198 


11 


08125 


3033^ 


12370 


TFM 02 


TFM 


i FLB I S+6, «-» 


08213 


16 


08240 


33333 


12380 




A 


TFLBIS+6, ISBNF+ll, 11 


08222 


21 


08240 


38125 


12390 


TFLBIS 


TF 


•-«,»-* 


38234 


26 


00030 


003 ) ) 


12400 


MM I S 


"MM 


»+9,500, no 


06246 


13 


08255 


305 30 


12410 




TFM 


I 5 B 7 + 6 , ISBTAB, 711 


08258 


16 


08 28 8 


38233 


12420 




S 


ISR7+6.99 


082 70 


22 


08288 


00 3 9 9 


12430 


ISB7 


B7 


»— » 


0f>282 


49 


00333 


303 J J 


124 40 


ISBTAB 


OSA 


K9,K8,K7,K6,K 5 , K4 , K 3 , K 2 , K I ,K0 


08293 


00005 38540 



■ 08^98 00304 39030 

08333 00005 08966 

08308 00005 08900 

38313 00305 08838 

08318 00005 08716 

Qt.323 30005 08672 

08328 30005 08860 

08333 00305 08628 

08338 00305 08608 

12*50 OSA KZ,KY,KX,KW,KV,KU,Kr,KS,KBAD,KBA0 06343 00005 09056 

08348 00005 39 112 

0o353 00005 09132 

06358 00005 09152 

IDS 



12460 



DSA KR,KQ,KP, KO , KN , KM , KL , KK, KJ 



L 24 70» 

12480* 

12490* 

12500* 

12510 K R AD 

12520 

12530 



YtS, THIS IS rut PLACE WHERE ONE CAN ADD ADDRESSES 
Oh OUTPUT ROUT I NIC S FQ THE AB3VE SET 



RCTY 
WATY 
CALL 



12540 KBAUMS DAC 



12550 K9 
12560 
12570 K2 
12580 

12590 EOT TO. 
12600 
12610 ADV 
12620 KO 



S 

B7 
A 

PTM 

OS 

TF 

AM 

BT 



KPADMS 
tX IT 

37, BAD nu I CUT CUDE IN I.S., U.S. LABEIS 1 
C2T, CD I TO, 11 
• + 20 

C2T, ED I TO, 11 
EDIT,*-* 

FLD3.EDI TA,6 
EDIS+11,5, 10 
OUTL IN.OUTL IN- 1 



08363 
08368 
08373 
08378 
95383 
08388 
08393 
08398 
08403 
08408 
08413 
08418 
08423 
00428 
08433 



08434 
08446 
08453 
08467 
08543 
08552 
08560 
08572 
08583 
08584 
08596 
08608 



00005 
00005 
00005 
00005 
00005 
00005 
00005 
00005 
00005 
00005 
00005 
00005 
00005 
00005 
00005 



09208 
09228 
09248 
09268 



08434 
09288 
09308 
09328 
09348 
09368 
09424 
09523 
09670 
09626 



34 OODOO 
39 08467 
49 00796 
00374 
22 10619 
49 08572 
21 10619 
17 0693b 
00000 

26 07986 
11 08149 

27 07806 



00132 
0010') 
0000 

085B3 
00 3, J 
08583 
000 3 

37371 
30335 
078 )5 



12630 




H7 


ISLDOP 


08623 


49 


08090 


00333 


12640 


Kl 


A 


CIT, ED I TO, 11 


3K628 


21 


13612 


08533 


12650 




BT 


EDIT.EOITO. 


00643 


27 


06938 


08583 


12660 




TF 


FL D2 , E D I I A,6 


08652 


26 


07931 


7 3 71 


12670 






ADV 


08664 


49 


08596 


00330 


12680 


K3 


A 


C3T , ED I T J , 11 


08672 


21 


10626 


8 5 3 3 


12690 




BT 


ED I T , ED I TO 


08684 


2 7 


06938 


08533 


12700 




TF 


FLD4.EDI TA,6 


08696 


26 


07991 


073 J 1 


12710 




87 


AOV 


OH 708 


49 


08596 


00333 


12720 


K4 


A 


CIT, FDITQ, 11 


8 716 


21 


10 612 


8 5 3 3 


12730 




r>T 


F PIT, FDITQ 


08728 


27 


06938 


38583 


12740 




TF 


FLD2,EDITA,6 


08740 


26 


07981 


3 7 3 7 1 


127*0 




BT M 


EDIT, CIT 


Ob/52 


1 7 


0*938 


10612 


12760 




TF 


FLD3.EDI TA,6 


06764 


26 


7 9 8 6 


0737 1 


12770 




A 


C2 T , C 1 I 


06 7 76 


2 1 


10619 


10 6 12 


12 780 




TF 


C1T,C2/ER0 


7 8 8 


26 


10612 


10640 


12790 




B7 


ADV 


8 8 3 


49 


08596 


00333 


12800 


K5 


A 


f 2T , EDITO, 11 


08808 


21 


10619 


3858 3 


12810 




BT 


E 1 T , t D I T 'J 


8 2 3 


2 7 


06938 


3 8 5 8 3 


12820 




TF 


FLD3,EDITA,6 


08832 


26 


07986 


7 3 71 


12830 




BT M 


EDI T ,C2T 


08844 


1 7 


06938 


10 619 


12840 




TF 


FL D4 , 1 I T A , 6 


8 8 5 6 


26 


07991 


7 3 71 


12850 




A 


C3T,C2T 


08868 


21 


10626 


10 61) 


12860 




TF 


C2T, C2ZFR0 


0>!80 


26 


13619 


10 6', 3 


12870 




B7 


ADV 


08892 


4 9 


08596 


3 3 3 3 3 


12880 


K6 


BTM 


E01T,C3T 


0«930 


I 7 


06938 


10626 


12890 




TF 


FLD4,EDITA,6 


0o9l2 


26 


7991 


3 7 3 7 1 


129C0 




f Y 


» + .l0, FLO* 


08924 


26 


08 9 54 


37991 


12910 




SM 


*+l3,22, 10 


08936 


1 2 


08954 


03322 


12120 




rr m 


*-*, 13 , 10 


08948 


16 


00000 


00 3 1 3 


1 2930 




B7 


KO 


8 9 60 


4 9 


08608 


30333 



i°7 



12940 K7 




£0 I T t C 2T 


08968 17 06938 10619 


i onen 


TF 


FL D3 » ED I T A , 6 


08980 26 07986 07371 


1 5QAfi 

\ c VOU 


B 7 


KO 


08992 49 08608 00000 




BTM 


EDIT,C2T 


09000 17 06938 10619 


12980 


T F 


rL U4 » t D I 1 A , 6 


09012 26 07991 07371 


12990 




C 3 T , C 2 T 


09024 21 10626 10619 


1 3000 


j p 




09036 26 10619 10640 


L 3\J 1 U 


B7 


KO 


09048 49 08608 00000 


i -art oa t/ 7 


TFM 


• + 23 t S TOR 1 


09056 16 09079 10647 


1 3030 


BTM 


ED I T i » — * 


09068 17 06938 00000 


1 3040 


TF 


FLD2 , ED I TA , 6 


09080 26 07981 07371 




A 


ClT,KZ+23» 11 


09092 21 10612 09079 


1 3060 


B 7 


KO 


09104 49 08608 00000 


i ■> a 7n v v 

l jU f u IV t 


TFM 


KZ *2 3 i S TOR 2 


09112 16 09079 10654 




B7 


K Z + 1 2 


09124 49 09068 00000 


L 3 U7U IV A 


TFM 


KZ + 2 3 » S TOR 3 


09132 16 09Q79 10661 


13 1 00 


B7 


KZ * 1 2 


09144 49 09068 00000 


13110 K W 


TFM 


*+23,ST0Rl 


09152 16 09175 10647 


13120 


BTM 


EDIT,*-* 


09164 17 06938 00300 


13130 


TF 


FL D3 , ED I T A , 6 


09176 26 07986 073/1 


13140 


A 


L2T,KW+23» 11 


09188 21 10619 091/1 


131 50 


B7 


KO 


09200 49 0R608 00030 


13160 K V 


TFM 


KW+23,STOR2 


09208 16 09175 10654 


13170 


B7 


KW + 12 


09220 49 09164 00000 


l 5 L OU IV U 


TFM 


KW+23, ST0R3 


09228 16 09175 10661 




B 7 


KW-H2 


09240 49 09164 00000 


132C0 KT 


TF 


STUR1.C3I 


09248 26 1064 7 10626 


13210 


B7 


ISLOQP 


09260 49 08090 00030 


13220 KS 


TF 


STOR2.C3T 


09268 26 10654 10626 


13230 


87 


ISLOOP 


09280 49 08090 00000 


13240 KR 


TF 




09288 26 10661 10626 










1 3250 


B7 


ISLOOP 


09300 49 08090 00030 


115 An. V (\ 
1 j<OU l\W 


T F 


ST0RlfC2T 


09308 26 10647 10619 


. 132 70 


R 7 


ISLOOP 


09320 49 08090 00000 




TF 


ST f )R2,C?T 


09328 26 10654 10619 


13290 


B7 


ISLOOP 


09340 49 08090 00000 




T F 


ST0R3.C2I 


09348 26 10661 10619 


1 3 31 


B7 


ISLOOP 


09360 49 08090 00000 


1 1 ^ OA 1/ Kl 

lij <:u K N 


TF 


C1T,02Z"ER0 


09368 26 10612 10640 


13330 


T F 


C 2 T , D 2 1 E R I ) 


09380 ?6 10619 10640 


I 3340 


TF 


C3T, D2ZERO 


09392 26 10626 10640 


1 3350 


T F 


C4 r , r?zhR.) 


09404 26 10633 10640 


1 3360 


B 7 


I SLOOP 


09416 49 08090 00000 


1.)? fU Is h 


BT 


1 1 tl o , r i tlo- i 


07424 27 07580 0757? 


1 33 80 


B T M 


H c 01. I N » A ' ' T v. 


04436 17 07480 37971 


1 3390 


B T 


HtDl I \ , I I 1 1 1 S 


09448 2 7 7480 1963 6 


I 3400 


BTM 


B L L I H , 1 , i 


09460 17 07374 00301 


1 3410 




F E D L I N , B A L S H 


09472 17 07480 09625 


1 3420 


BTM 


Bl I I J , 1 , 1 


09484 17 07374 00331 


1 34 30 


B T 


h t. D L I N i . ■ 1 I T l. E S ♦ 3 » 5 


09496 27 07480 19/31 


1 3440 


BTM 


Hi. DL IN, ASIS 


09508 17 07480 07971 


134 50 


8 7 


KN 


09523 49 09368 30030 


i J *» OU ft L 


B T 


T H I , T I I LO- 1 


09 52 8 2 7 7580 07579 


1 34 70 


BTM 


H LL I N » I , 1 


09540 17 07374 00031 


13480 


B7 


KN 


09552 49 0936B 00330 


1 *34Qfl Al vW 


D S A C 


33, BALANCE SHfcC T , 


t 09625 0^366 


UvUU Iv J 


T F 


FL D4 , AS TS-66 + 22 » <> 


09626 26 07991 0792 7 


13510 


TFM 


c l ^ /i n t i /i 
r I. ij 4 , U , d 1 U 


39638 16 07991 00330 


13520 


BT 


COIL IN.ChJl-L IN-l . 


09650 27 7806 O/UO^ 


13530 


HT- 


f SLOOP 


09662 49 08090 0003 ) 


13540 KK 


TP 


FLD4, ASTS- c,6+??,6 


096 73 26 3 7991 0792 7 


135 50 




r 1 04 ,0,611 


09682 16 07991 OOOOj 



(Of 



13560 




RT 


UUTL IN.OUTLIN-l 








09694 


27 


07806 


07805 


13570 




AM 


HEDLIN+18,8, 10 








09706 


11 


07498 


00DD8 


13580 




AM 


K61+6,8,10 








09718 


11 


07542 


00038 


13590 




BTM 


dLLIN,4,10 








09730 


17 


07374 


00334 


13600 




A 


C3T.STOR3 








097';2 


2 1 


10626 


10661 


13610 




BTM 


fOIT,C3T 








09754 


17 


06938 


10626 


13620 




CM 


C3T,0 








09766 


14 


10626 


00030 


13630 




BE 


BINGO 








09778 


46 


09858 


01230 


13640 




A 


GOOF , ED I T A 








09790 


21 


10477 


073 71 


13650 




BTM 


EEDL IN, GOOF 








09802 


17 


07480 


10477 


13660 




TF 


COOF, ASTS 








09814 


26 


10477 


07971 


13670 




TF 


GOOF-16, ASTS 








09826 


26 


10461 


07971 


13680 




BTM 


EEDL IN, GOOF 








09838 


17 


07480 


10477 


13690 




B7 


SEER 








09850 


49 


09894 


00330 


13700 


BINGO 


BTM 


HEDL IN, BING 








09858 


1 7 


07480 


10635 


13710 




TF 


t:!NG-36,ASTS-56 








09870 


26 


10569 


07915 


13720 




BTM 


HEDl IN, BING 








09882 


I 7 


07480 


10605 


13730 


SEER 


CM 


PMBERS, 0,210 








09894 


14 


03322 


00300 


13740 




RNE 


CimjOT 








09906 


47 


09962 


01200 


1 3750 




AM 


SEeR+6, 3, 10 








09918 


11 


09900 


00333 


13760 




CM 


SEER+6, PHCERS 








09930 


14 


09900 


03325 


13770 




BNH 


SEEK 








09942 


47 


09894 


01133 


13780 




B7 


ALL DON 








09954 


49 


10010 


00030 


I 3790 


our MOT 


BTM 


VOL IN, NOTE 








09962 


17 


07480 


10559 


138C0 




TF 


GOOF, AS I S 








09974 


26 


10477 


079 71 


13810 




TF 


COOF- 16, ASTS 








09986 


26 


10461 


07971 


13820 




BTM 


EE DL I N , GOOF 








09998 


17 


07480 


10477 


13830 


ALL DON 


BO 


•♦44,PRSW 








10010 


43 


10054 


02522 


13840 




TFM 


tUITPUT, 33, 10 








10022 


16 


03063 


00333 


13850 




BT 


OUTLIN,OUTLIN-l 








10034 


27 


07806 


07835 


1 3860 




B7 


• ♦20 








10046 


49 


10066 


00000 






















i i A 

110 


13870 




K 


, ^71 








1C054 


34 


00000 


0097 I 


13880 




TF 


IP0X-4.EDI T A 








10066 


26 


10279 


073 71 


I 3890 




TO 


n FY, PMBERS 








10078 


25 


10291 


03322 


13900 




TD 


FLF Y-2 , PHBERS- I 








10090 


25 


10239 


03321 


139 10 




TO 


F! FY-4.PHRERS-2 








10102 


25 


10287 


03320 


13920 




TD 


( L Y,I>HCERS 








10114" 


25 


1 0335 


03325 


13930 




TD 


FL Y-2, PHCERS-1 








10126 


25 


10333 


33324 


13940 




TD 


Fu Y-4 , PHCERS-2 








10138 


25 


10331 


03323 


13950 




RCTY 










10150 


34 


00000 


00102 


13960 




W AT Y 


MONNS 








10 162 


39 


10223 


3010 


139 70 




BNCl 


MONCAL 








10174 


47 


00796 


00130 


13980 




BD 


."UNC A L » LC S W , , THIS MUST BE 


SET 


SUM 


t WHERE YET 


10186 


43 


00796 


03326 


1 3990 




BT • 


CFTAr.J,WC+6»20 








10198 


I 7 


02618 


02422 


14000 




BTM 


CFTA0J,WC*7»2O,711, LINK TO 


B 






10213 


1 7 


02618 


0244? 


14010 


MONNS 


DAC 


17,rtAL. SHEET ERROR ., 








10223 


00)34 




14020 


TBOX 


DC 


28 ,2300 








10 2 8 3 


00028 




14030 


FLF Y 


Di AC 


4, 777 








1 J291 


00008 




14040 


f-LY 


DSAC 


22, LANGUAGE ERRORS 777 








10335 


00044 




14050 




OAC 


18, REFERENCE ERRORS' 








10337 


000 3 6 




14060 


CH'G 


BTM 


GETAOj,WC+6»20 








10372 


17 


32618 


0242? 


L4070 




(3TM 


GETAf)J,WC+7«20, 711 








10 38 4 


17 


02618 


02442 


14080 


GOOF 


DSAC 


41, YOU GOOFED, OUT OF BALANCE 


BY 




104 77 


00082 




14090 


NOTE 


DSAC 


41, lur Nil T£ PROGRAMMING 


ERRORS 


ABOVE , , 


10559 


00082 




141C0 


BING 


DSAC 


2 3, BINGO , 








10 6 5 


4 6 




141 10 


C1T 


DC 


L,0 








10612 


00007 




14120 


C2T 


DC 


L ,0 








10619 


00007 




14130 


C3T 


DC 


L,0 








I ."162 6 


00007 




14140 


C4T 


DC 


L ,0 








106 33 


•) ; j i r 




14150 


D2ZER0 


DC 


L,0 








1U640 


0003 7 




14160 


ST0R1 


DC 


1. ,0 








1064 7 


0000 7 




141 70 


ST0R2 


DC 


I. , 








10654 


00307 





14180 


STOR3 


DC 


L,0 


10661 


0O007 




14190 


D2TCD 


TFM 


WC+18.BEGND2 


10662 


16 


02320 


_ 

08006 


14200 




TFM 


WC+13.BEGN02 


10674 


16 


0231 5 


08006 


14210 




TFM 


NUAD t BEGND2 


10686 


16 


02565 


080J6 


14220 




TF 


WC+8,D2DSA-2 


10698 


26 


02310 


10743 


14230 




BLC 


•+12 


10710 


46 


10722 


00900 


14240 




BT 


PUlADJ.PUTAOJ-l 


10722 


27 


02530 


02529 


14250 




B7 


OOG 


10734 


49 


10372 


00030 


14260 


D2DSA 


OS A 


C2 TCD-BEGND2* 100 


10745 


00005 02756 


14270 


ENDD2 


DS 


, C2TCD- I 


10661 


00000 




14280 




OEND 


C2TCD 


10662 









J/2. 



««» UNDEFINED *•» 



OOMOWCDD DO ,WC,,,A, WISAl rflLL UPDATE TO WJKK CYLINDERS ITSELF 

J8 130TEMPX 00 ,WC + 20i.,,A 



0432OACLAB C CLR,»-» 



04290 I 51 AR 


TFM 


ACLAB + ltfINPUT + 14, .XUUfcCT * LEFT-JUSTIFYING LABEL 


04360 


A 


AMB+l 1 , AC LAB+ 11,11 


04380 


AM 


ACLAB+11,2,10 


04390 


CM 


ACLAB+ll, IMPUTE 


04400 


BL 


ACL AB 



I 1950ACTMESDSAC 4 , A C C T 

UBV) TF UUTPUT+6, ACTMES 



1 0460ACT ME2DS AC 6, ACT NO, 

11000 TF «-», ACTMLV 



03950AD OS A »-» 

04640 TF AD.IMSAl) 



08990ADD TQM D0 + 1 , 1 

08950 BNF ADD , AMB2 + 1 L 



009 10ADJF DS , * 

OOtiOO TK AD JF , (Ml) AD 



112 



00810 


S 


AOJF f WOl3 




01 190 


TF - 


SM7+11 , ADJF, , 


SAVE UPDATABLE BLOCK ADJUSTMENT 


01310 


A 


HEDDSA , ADJF, , 


FOR PHASE D2 USE 


01320 


A 


HEDDSA+5 , ADJF 




01370 


A 


HEDDSB.ADJF, , 


TO SAVE ADJUSTED START 3F 


01390 


TF 


**35,ADJF 






TFri 






01410 


SM 


ADJF,»-» 




01460 


A 


HEDDSA+2»5,ADJF 




01470 


A 


HEDDSA+3«5,ADJF, , 


UPDATE HEADER DSA-S 


01480 


A 


HEDDSA+4»5,ADJF, , 


FOR PHASE Dl USE 


01490 


A 


HEDDSA+5»5,ADJF 




01580UPS2 


A 


S2+1 1, ADJF, 6 




01620 


A 


HEDDSA+8»5,ADJF 





04280ADMIN DSAC 5, ADMIN 

03990 C ADM I N , I IMP UT+ 8 



081 10A0MI.NCD5AC 5, ADMIN 

07500 C ADMINC , INPUT+8 



02710ADMNA2DSAC 5,ACM[N 

02630 C INPUT+8, A0MNA2 



07120ADREG DC 5,0 



059 70PKFND TFM ADREG.O 
05990CRFND TFM ADR'-G, L 
06920 TF OBJAD.AOREG 



12610ADV AM '.DIS^ll, 5, 10 

12f>/0 B7 AD V 



12710 87 ADV 

12790 B7 ADV 

12870 37 ADV 



08640AG0GO TF 



TFNO+ I 1 . »-• , , 



FILL IN FROM HEDDSA+8»5 



08230 
08250 
08260 
08430 



T F 
A 

SM 
AM 



08S40N0SK I PBNF 
086)0 -RNR 
08690 RNR 
08770HAVIT AM 
08780 TDM 
08790 AM 
08800 TF 



AGOGO+ 1 1 , HED0SA+8*5 
AGOGO+ 1 1 , 99 
AGOGO+ 11,5,10 
AGOGO+1 1 ,5 ,10 
AG0G0-12.TDMTR+11, 11 
AG0G0+24, AG0GU+35 , 11 
AGOGO+24, AGOGO+35, 11 
AGOGO+3'.3, 1,10 
AGOGO+35, 1,611 
AGOGO+35, 5, 10 

TBNR+ 1 I, AGOG + 35, 1 1 ,A0 OF START OF ROUTI\F 



13C30ALLD0NBD »+44.PRSW 

13780 B7 AL L DON 



07090ALPHANDSAC 4,7777 



05000 TFM TDNUM+6, ALPHAN-6, , THIS A I NT NO NUMERIC 

05200TDNUM TO AL PH AN-6 , CUL , 1 1 , NO 

05210 CM «-6,ALPHAN,, HAVt" WE 4 NUMERICS 

06810 TFM 7DNUM+6, ALPHAN-6 

06830 C ALPHAN » *-» 



04370AMB AM *-*,»-» 



04110 TFM AMB+6, HOL AB-8 

04330 BE AMR+12 

04340 AM AMB+6, 2, 10 

04350 TFM AMB+11,0,10 

04360 A AMB+11,ACLAB+U,11 



06930AMBA AM UBJAD,»-» 



06800 TF AMBA+ll,HEDDSA+6»5 

06840 BE AMBA-12 

06860 AM AMRA+ll.S, 10, S LIKE. IN SHEEPSHEAD 

06910CSFND TFM AMBA+11,0 



09150AMB2 MM » + 9 , t » 1 00 , 7 1 



08940TBNR TO 
08950 BNF 
08960 CF 
09030MORYE TBNR 
09040 BNU 
09050 TDM 
090800ISAMTTD 
09090 BO 
091 10SOMAMTCM 
09130 BNH 
09170 TD 
09180 CF 



AMB2+ll,»-* 
ADD , AM82 + L 1 
AMB2 + H 

SOM A MT , AMB2+ 1 1 

DI SAMT , AMB2+ 1 1 

AMB2+ll,*-» 

AMB2+11.LITS-1 

SDMAMT t AMB2+ 1 1 

AMB2+11,*-* 

AMB2 

AMB2+II.LI TS-2 
AMB2 + 1 1 



Q6730AMDSA OS A - AMT SW , HO SW ,-DCSW 

06620 BTM LGCANO , AMDSA 



06750AMDSA2DSA -0BSW,-SGSW,-SGSW2 

06600 BTM LGCAND, AMDSA2 



06590AMFN0 BD UPC0L6.CDVSW 

05640AMT DVLC , 2 , 4 1 , 2 , 54 , 2 , -63 , 5 , M I NUS + ? , 2 i 99, 5, AMFND 

_____ . ______ _ ------ --- 



07160AMMES D AC 19, IMPROPER STATEMENT* 

06640 BTM 
071B00BMES OS 
O/ffOBAOOC DS 



ERPRNT , AMMES- I 
, AMMES 
, A^MES 



05640AMT DVLC » 2 ♦ '» 1 1 2 , 54 , 2 . -63 , 5 , M I Nt)S + 2 , 2 , 99 , 5 , AMF MO 



0503Q BTM SCAN, AMf 

05 690CASH DVLC , 2 , 4 3 , 2 , -4 1 , 1 , CRt I T + J , 2 ,-r", 2 , -5 , AMT ♦ ? , 2 , 4 « , ?. , 99 , 5 , X At- NO 



O6770AMTN TO INST,i.OL, 11, AMT N FOUND 

051J0 BD AMTN,AMfSW,, IS THIS LIKE AMT N 



02580AMTSW DSC 1,0,, 



AMT LAST FOUND, NO M OR C, 0, V riT 



05190 Bf) 
06 1200SWNLBDSA 
06290 BD 
06 350 TOM 
06680 TOM 
06 730AMOSA OSA 
O7O10OBOSA OSA 
<<703OO_DSA20SA 



AMTN, AMTSW,, IS THIS LIKE AMT N 
-DC SW,-OBSW,-CDVSW,-AMTSw 

RSAMT.AMTSw, , DID 'AMT* SHOW UP PRE V I Q J5L V 

AMISX.G 

AMTSW.1,11 

-AMTSW.HOSW, -OCSrf 

0CSW,-0i3SW,-AMTSW,-(.0VSW 

OBSW,-DCS«*,-AMTbW t -CO.VSw f -LPSW,-SCi-rt2 



I 1 200 ARBNF BNF «-?4,»-* 



I 1 090 


TF 


ARBNF + 11 , IIEDlIS.A+4* 5 


1 1 100 


SM 


ARBNF+ll ,? , 1 


I I 170 


AM 


AR8'4F + ll , 1 , l!J 


11190 


AM 


ARBNF+ll ,2', 10 ■ 


I12L0 


SM 


ARBNF+U , 1,10 


11220TFAHL8TF 


•■-», ARBNF + ll, 11 



03920AREA OSS LNTH 

06460 TO AREA, INST,? //7 



11150ARLOQPTF TF4RL8 + 6, FLDl 

11470 BNR ARLODP«EOARl+ll,ll 



10570ARTB DSAC 33, ACCOUNTS RECEIVABLE TRIAL BALANCE 
10940 BTM HEOLIN,ARTB 



10520ARTOT1DC L,0 

11270 A ARTOTl,»-l,ll 

11520 BTM ED I T » ARTOT 1 



10530ARTOT2DC L,0 

11300 A ARTOT2,EDAR2+6,ll 

11540 BTM EDIT, ARTQT2 



10540ARTOT3DC L,0 

11370 A ART0T3,EDAR2+6,ll 

11560 BTM EDIT, ART0T3 



1 5 50 A R TDT4DC L,0 

11440 A ART0T4,EDARl+6, 11 

11580 BTM EDIT, ART0T4 



05630ASH DVLC , 2 , 4 1 , 2 ,- 86 , 5 , C A SH + 9 

C5610CKEDITDVLC ,2,43, 2, -59, 5, ASH, 2, 4 5, 2, 44, 2, -49, 5, OF. BIT + 2, £,-63 

US 



10390ASTS DSAC 3 3 ,»»**»#***»»**»»*»»»»**»•»*»»** »*« 



10910 


BTM 


HEDL IN, ASTS 


10960 


BTM 


HEDLIN.ASTS 


11620 


BTM 


HEDLIN.ASTS 


11680 


BTM 


HEDL IN, ASTS 


11760 


BTM 


HEDL IN, ASTS 


U8?0 


BTM 


HEDL IN, ASTS 


13380 


B T M 


HEDL IN, A.STS 


13^.40 


BTM 


HEDL IN, ASTS 


1 3S00KJ 


TF 


FLD4, ASTS- 6 6+22,6 


13540KK 


TF 


FLD4, ASTS-66+2?,6 


13660 


TF 


GOOF , ASTS 


136/0 


TF 


GDOF-16, ASTS 


137 10 


TF 


BING-36, ASTS-56 


13800 


TF 


GOOF, ASTS 


138 10 


TF 


GDOF-16, ASTS 



03490A4DSA DSA A4TCD-DCSW+ 100 

03460 TF WC+8 , A4DSA-2 



03430A4TCD TFM WC+13.DCSW 

03490A40SA DSA A4TC D-DC SW+ 1 00 
03500 TCD A4TCD 



03840A5DSA OSA A5 TCD-DC S W+ 1 00 

03810 TF WC + 8 , A'>DSA-2 



03790A5TCD BNF TRA5,PRSW 



03840A5DSA DSA A5TCD-DCSW+100 
03850' TCO A5TCD 



03910 DORG A5TC0 



BACK TO •»» UNDEFINED »»* 

Q1780TRA1 TRA 



BACK TO DO PHASE A2 



07170BADACTDAC 32 t NONEX I S TAN T ACCOUNT NUMBER USED • 

06880 BTM ERPRNT.BAD ACT-1 



07190BADDC OS ,AMf\ 



06050 



BTM ERPRNT , BADDC-r I 



04710BADLABDAC 31 1 PREVIOUS ROUTINE NOT COMPLETED' 



04460 
05U70 



BTM ERPRNT.BADLAtt-l,, 
BTM ERPRNT,BADLAB~1 



FOR BEGINNING A NEW ROUTINE 



06210BADRP DAC 1 8 , P AR EN r HE S I S ERROR ' 

061/0 3TM ERPRNT i BADRP- 1 



13490BALSH DSAC 33, BALANCE SHEET ., 

13410 BTM HEDLIN.BALSH 



04880BB2 BB2 ,,, OR OUT 

05-J70 BNF BB2.0BJ,, COLUMN VS. CONTROL UNEQUAL » OUT IF NONAMiU: 



04B20BDL 



BNF PSEEK+ t2,»-», , 



is i r 



04 790 
04800 
04!" 
Hi jOI'ST 1 K BNF 
04SS0P :,t t K '»'!," 



TF 

BNF 
CF 



BDL+ 1 1 ,LGCAND- 1, 1 1 ,RULL IN I NPUT ' Sw ADDRESS 

PSEFK.BOL + U, , BRANCH IF THE SW IS DLS I RED TO BE OFF 

BDLH1,,, SW OtSIRLD TO BE ON 

BDI. + 12 , BDL + M . 1 1 » SW DLSIRhi) TO Bt OFF, BRANCH IF 3 Ni 
HOI.+ l?,H|.L + 1 1 , 11 , SW ! i h •> I P t". I,. TO BE OFF t BRANCH IF ON 



07970B0NN BD MONCAL.LCSW 

07830 



B7 BONN,,, REMOVE IF AOMIN RUN ShQULO PRODUCE OUTPUT 



1 04 70 B E G B AL DS AC 9, BFG P. A I 



1 10 30 
11 H80 



FL02,BEC,BAL,6 
FL02.BEGBAL.6 



07200BEGINBRCTY 



072HOTCDB TFM WC+ 1 8 , BEG I NB 



094 10BEGI NC TF T S W A L) , l IE ■ ' S A ♦ 6 « S 



09470 TFK WC+ I H , BE G I NC 

OTi^OENOC DS .BEGlNC-l 



122C0BEGNQ2BT M GE I AO J , WC + ?* 20 



14 190D2T.CD TFM 

14200 TFM 

14219 TFM 

14?60')?0SA DS A 



WC+18,BEGN02 
WC+13,BEGND2 
NUAD » B EGNO? 
D2TC0-BLG vt)2+ 100 



14100BING DSAC '23, MINGO 

13/OOBINGO CTM HEOLIN.BIMG 



13710 
13720 



TF BING-36, ASTS-56 
BTM HEDLIN.BING 



13700BINGO BTM HEDLIN,BING 

13630 BE BINGO 



099706LLIN BD K71 ,P<SW 



09990 


SM 


BLLIM- 


■It 


1, 10 


10000 


BP 


BLLIN+12 




10030 


SM 


BLLIN- 


1, 


1. 10 


10900 


BTM 


BLLIN, 


4, 


10 


10930 


BTM 


BLLIN, 


1, 


10 


10950 


BTM 


BLLIN, 


1, 


10 


10970 


BTM 


BLLIN, 


2, 


10 


11080 


BTM 


BLLIN, 


1, 


10 


11480 


BTM 


BLLIN, 


2, 


10 


11640 


BTM 


BLL IN, 


1, 


10 


11660 


BTM 


BLL IN, 


1, 


10 


11 780 


BTM 


BLLIN, 


I, 


10 


1 1 800 


BTM 


BLLIN, 


It 


10 


1 1H30 


BTM 


BLLIN, 


2, 


10 


11930 


BTM 


BLLIN, 


It 


10 


13400 


BTM 


BLLIN, 


It 


10 


13420 


BTM 


BLL IN, 


It 


10 


13470 


BTM 


BLLIN, 


1. 


10 


13590 


BTM 


BLLIN, 


4, 


10 



08300BLSUP C CCZERO,*-* 

08400 8L BLSUP 



01550BNF2 RNF UPS2,«-«,, TRANSACTIONS HAVING SUBLEDGER HAVE FLAG 

01560 AM BNF2+ll,8,10 

01570SM7 AM BNF ?♦! 1 , *- • , 6 



04250BTI TL1DAC 50,4 UTLfc CARD HAS BEEN FOUND IN THE SOURCE PRJGrtAI*' 
04110 WATY BTITL1 



04260BTITL2DAC 46, SW 2 OFF TO CONTINUE AND IGNORE, ON TO ACCEPT ' 
04130 W/»TY BTITL2 



06220CAFND TOM INSI.O,, CASH 

05690CASH DVLC ,2,43,2,-4 1,5,CREDIT*2,2,-62,5,AMT+2,2,4B,2,99,5,CAF\ID 



08360CA^ AM «-»,«-» 

08280 TFM C AM+ 6 , CL ABL-6 

08330 TFM CAM+11,0,10 

08350 A CAM+11 ,CCOL, 1 1 

08370 AM CAM+6,2,10 



02470CAPD DC A , INPUT 

02600GETA? GET CAPO 
03080 GET CARD 



05690CASH OVLC , 2 , 4 3 , 2 , -4 1 , 5 , CR E I T + 2 , 2 , -62 , 5 , AM T + 2 , 2 , 48 , 2 , 9-i , 5 , C A F N 

05070 BTM SCAN, CASH 

05630ASH DVLC , 2 , 4 1 , 2 , -86 , 5 , C A S H + 9 



02730CA2 C CCA2 , I NPUT+ 160 , 7 

02720TR4? S* CA2+11,2,10 



02750 
02760 



AM CA2+U,2,10 
TDM CA2+11,0,6 



02790CCA2 DC 2,0 

02730CA2 C CCA?, INPUT+160, 7 



04190CCC C CLR , INPUT+160, 7 



04210 AM CCC+11,2,10 

04220 TOM CCC+11,0,6 



08310CCIU OS ,* 



08210 


TFM 


CCOL, INPUT+22, , 


SET PL) INTER 


08350 


A 


CAM*H,CC0L,11 




08380 


AM 


CCOL, 2, 10 




08390CMC 


CM 


CCOL,*-* 




O8500QCEND 


CM 


CCOL , I NPUT+14? , 


IF CARD OVER 



03340CCZERODS ,» 



08300BLSUP C 



CCZERO,*-* 



02570COVSW DSC 1,C, 



CASH, DISC, OR VOUC LAST FOUND, Ml AMT /FT 



06120DSWNLBDSA 
06330 TDM 
06590AMFN0 BO 
06700UPC0L6TDM 
070100BDSA DSA 
070300BDSA2DSA 



-DCSrt,-OBS»J,-CDVSW,-AMTSw 
CDVSW, 1, 11 
UPCOLh, CDVSW 
CDVSW, 

DCSW,-OBSW,-AMTSW,~COVSW 
0BSW,-DCSW,-AMTSW,-'CDV$W,-LPSW,-SGSW2 



024Q0CFDD CF DD+1 



D2360GE TADJBNF CFDD , * - 1 , , 



Ft i*MAN£NT DISK INPUT ROUT IMF 



02390 



B7 CFDD+12 



01110CHOVLPCM HEDDSB.FNDAl 

01010 



BE CHDVLP,,, 



IS L I HE SAME 



04520CLAB C 



•-« , HUL AB 



044 90LA 


SWOKTF 


CLAB+6, TRLAB+6 


04500 


AM 


CLAB+6, 7,10 


04510 


l!7 


CLAB+36 


04 5', ;) 


AM 


CLAB+6, 14, 10 


04550 


OMR 


CL AB » C L AS + 6 , 11 


04550 


8NR 


C. LAB, CLAB + 6, 1 1 



09380CLABL DS 



08280 
08290 
08470 
08660 



TFM 

TF 

CM 

c 



CAM+6.CLABL-6 
CL ABL , CLR + 6 
CLABL.O, 1011 
CLABl ,*-*,, 



SEEK LABEL 



09530CLDSA DSA C TC D- I ABCHK+ 1 0^ 

09500 



WC + 8,CL!jSA-2 



O3060CLR OAC 40, 



03340OMES 


TF 


03350 


IF 


03660 


TF 


04030NQCUL7C 


04190CCC 


C 


04300 


TF 


04320ACLAB 


C 


07600TCMC 


C 



OUTPUT* 78,CLR*78- 
OUTPUT* 158 .CLR+78 
0UTPUT+46,CLR+46, , 
CLR+6, INPUT+20, , 
CLR, INPUT+160, 7 
HOLAB.CLR+6 
CLR, » - * 

CLR, INPUT+ 160, I 



THIS IS THE 
IS MNEMONIC 



CHI T I -ll-RARY 
FIELD BLANK 



tli" 



08290 

09660 

10200 

10260 

10280 

1H290CRS 

10300 



TF 
TF 
TF 
TF 
TF 
TF 
TF 



CLABL t CLR + 6 

EDI T A tCLR + 2 

0UTPUT*8,CLR+8 

0UTPUT+48.CLR+8 

0UTPUT+238,CLR+7B 

0UTPUT+158.CLR+78 

0UTPUT+78.CLR*78 



06190CLRSN BTM SETSWS.RPDSA 

06160 



BNF CLRSN.SGSW 



08390CMC 



CM 



CCOL,»-» 



08220 TFM CMC + 1 1 , 1 NPUT + 22 

08270NULAB AM CMC+11,8,10 
08320 BE CMC-12 



05130CM42 CM COL,»-*,, HAS ALL THAT MOVED POINTER 

04990LSCANSTF CM42 + 1 1 , COL , , 



SAVE POINTER 



08450CNT 



DS 



08140F0RTHCTD 



08150 
08160 
08170 
08180 
08200 
08240 
08420 
08550 
08560 
08570 
08700 
08710 
08720 



TD 
TD 
SF 
SM 
A 

MM 
AM 
TD 
TD 
TD 
TD 
TD 
TD 



CNT t INPUT+20 
CNT-1, INPUT+18 
CNT-2, INPUT+16 
CNT-2 
CNT, 1,10 
TDMTR+ 1 1 , CNT 
CNT, 5, 10 
CNT, 1,10 
TW0ME2+2, CNT-2 
TW0ME2+4 , CNT- 1 
TW0ME2+6,CNT 
NLRMES+90 , CNT 
NLRMES+88, CNT-1 
NLRMES+86, CNT-2 



09260 
09270 
09280 



TD 
TD 
TD 



SLMES+76.CNT 
SLMES+74, CNT-1 
SL ME S *• 72 , CNT - 2 



07740CNTBD BD LPBD,< 



07690 
07700LPBD 



TF 
AM 



CNTBD+ 1 I , TOSWAO 
CNTBD+ 11,1,10 



05350COL 



DS 



MAINLINE HAS SET COL '■JON-BLANK CUMING IN 



04650C0NT TFM 
04990LSC ANSTF 
05130CM42 CM 
05150SSUPP C 
05 170 IFNUM C 
05200TDNUM TD 
05240UPCOL AM 
05250 
05400 
54 30 
0549ORUACK C 
05510NUEN0 AM 
05520 CM 
067 70AHTN TD 



CM 
C 

SM 



COL, INPUT+22 

CM42 + 1 I ,COL, , SAVE POINTER 

COL,»-*,, HAS ALL THAT MOVED PUIMTER 

C/.tRQ,COL , 11 , SPACE SUPPRESS, ENTERS HERE 

C70B,CUL,11, CHECK FOR NUMtRICS 
ALPHAN-6 , COL , 1 1 , NO 

COL, 2, 10, ONWARD, LIKE UP GM CAR; 

C3L , ENOWDS , , IE END OF CARD 

OBJ, COL, 11, AND COMPARE AGAIN 

COL, 2, 10, KEEP SAME CARD CTLiJMN 

CZtfRO.COL, 11 , SUPPRESS HLANKS 

COL, 2, 10, UP ON CARD 

COL , ENDrtOS , , IE END OF CARD 

INST, COL, 11, AMT H FOUND 



04650C0NT TFM Cm , INPUT + 22 



04060 
04420 



BNE CONT 
BE CONT,,, 



YES, CONTINUE 



5610CREDI TDVLC ,2, 43, 2, -59, 5, ASH, 2, 45, 2, 44, 2, -49, 5, DEBIT +2, 2, -63 



05010 BTM SCAN, CREDIT 

05660CUST DVLC ,2,43,2.-64,5,CREDIT+2,2,6?,2,63,2,0 4, ?,99,5,CSFND 
05690CASH DVLC , 2 , 43 , 2 , -4 1 , 5 , CRE D I T + 2 , 2 , - 62 , 5 , AM T ♦ 1 , 2 , 4 rt , 2 , 99 , 5 , ; AF ND 



f*7 



05990CRFND TFM ADREG.L 

05620 DVLC , 5 , D I SC + 9 , 2 , 99 , 5 , CRFND 



0039QCRIT1 OC 3, 10, , ALLOWABLE LANGUAGE ERRORS 

07B400UTSWLC CR [ T 1 t PHBERS 



00400CRIT3 DC 3, 15, , ALLOWABLE REFERENCE ERRORS 

07860 C CR I T3 , PHCERS , , CHECK CUTOFF 



10290CRS TF OUTPUT*- 15H , CLR+ 78 



10100 


B7 


CRS 




10130 


B7 


CRS 




10230 


B7 


CRS 




10 340 


B7 


CRS 




10360 


BNI 


CRS- 


12 


10380 


B7 


CRS- 


12 



06910CSFND TFM AMBA+11,0 

05660CUST DVLC , 2 , 4 3 , 2 , -64 , 5 , CRE D I T + 2, 2 , 62 , 2 , 63 , 2 , 04 , 2 , 99, 5 , C SFND 



09460CTCD TFM WC*5« 20 1 8 , L ABCHK , , BEGIN C WITH CA^O ALREADY RE AO 

09530CLDSA OSA CTCD-LABCHK-HOO 
09t>40 TCD CTCD 



05660CUST DVLC , 2 , 4 3 , 2 , - 64 , 5 ,CRED I T + 2 , 2 , 62 , 2 , 63 , 2 , 04 , 2 , 99 , 5 , CSF ND 

05780 TFM SCAN- 1 , C UST, , SNEAK RACK IN FUR COST 



07110CZER0 DC 2,0 

O'j i 50SSUPP C C/f Rf),COL , 11 , SPACt SUPPRESS, ENTERS HERE 

05490RHACK C CZFRO,COL,U, SUPPRESS BLANKS 



05340C1 C OBJ,»-»,, MAIN COMPARE, WITH OVERFLOW 

*»» UNREFERENCED *** 



14110C1T DC L,0 



12640K I 


A 


CIT, 


EDI TO, 


11 


1/7 20K4. 


A 


CIT, 


GDI TO, 


U 


12750 


BTM 


tor t 


,CIT 




12/70 


A 


C2T, 


CIT 




12 780 


TF 


CIT, 


D2ZER0 




13050 


A 


CIT, 


KZ+23, 


11 


13320KN 


TF 


CIT, 


D2ZERC) 





14120C2T DC L,0 



12550K7 


S 


C2T, 


COITU', 


11 


125 7 OK 2 


A 


C'T, 


EUITQ, 


U 


12 770 


A 


C2T, 


CI T 




12800K5 


A 


C2 r , 


tni to. 


11 


12330 


BTM 


ED I T 


,C2T 




12850 


A 


C3T, 


C2T 




12860 


TF 


C2T, 


D2ZER0 




12940K/ 


BTM 


EDIT 


,C?T 




12970K8 


BTM 


EDIT 


,C2T 




12990 


A 


C3T, 


C2T 




13000 


TF 


C?T, 


D2ZER0 




13140 


A 


C2T , 


KW+23, 


11 


132-6 OK w- 


TF 


ST0R1,C2T 




13280KP 


TF 


ST0R2.C2T 




13300KU 


TF 


ST0R3,C2T 




13330 


TF 


C2T, 


D2ZERU 





fat 



09860C23D1 DC 2,23 



09770 C C23DI.TDED+6, 11 

C9ooG C C2 3D 1 » Tucu*6 » i i 



14130C3T DC L,0 



12680K3 


A 


C3T, EDITQ, 11 


12850 


A 


C3T.C2T 


12880K6 


BTM 


EDIT,C3T 


12990 


A 


C3T.C2T 


13200KT 


TF 


ST0R1.C3T 


13220KS 


TF 


ST0R2.C3T 


13240KR 


TF 


STC1R3,C3T 


13340 


TF 


C3T » D2ZER0 


13600 


A 


C3T,STOR3 


13610 


BTM 


E0IT.C3T 


13620 


CM 


C3T,0 



14140C4T DC L,0 

13350 TF C4T,D2ZER0 



07050C70B DC 2,70 

05170IFNUM C C70B,CGL,ll, CHECK FDR NUMERICS 



05970DBFND TFM ADREG.O 

055900EBIT DVLC ,2, 44,2, -45, 5, ISC ,2, 42, 2,49, 2, 63, 2, 99, 5, fJBFND 



06110DC0SA2DSA -SESW 

05950 BIM SHTSWS,DCD r ,A2 

I 10 



06080 BTM SETSWS,I)CDSA2 



025200CSW DSC 1,0,, 



DEBIT UR CREDIT LAST FOUND 



03430A4TCD TFM 
03440 TFM 
03490A4DSA DSA 
03840A5DSA DSA 
06120DSWNLBDSA 
06690 TOM 
06730AMDSA DSA 
070100BDSA DSA 
07030OBDSA2DSA 



WC+13.DCSW 

NUAO.DCSW 

A4TCD-DCSW+100 

A5TCD-DCSW+100 

-DCSW,-OBSW,-CDVSW,-AMTSW 

DCSW ,0 

-AMTSW,HOSW,-DCSW 

DCSW,-OBSW,-AMTSW,-C0VSW 

OBSW.-DCSW.-AMTSW.-CDVSW.-LPS^.-SC 



SW2 



024400D DSC 8,2-" n >nnoo« 



02380 


SF 


DD+ 1 




02400CFDD 


CF 


DD+1 




0?41.0 


TF 


DD + 6 


GET ADJ- 1 


02420 


GET 


DO 




03700 


WN 


DD+7 


900 


10020K71 


WN 


DD+7 


900 



00480DDATR TR WC , ,C,2 



*»» UNREFERENCED *•* 



05590DEBIT DVLC , 2 , 44 , 2 , -45 , 5 , I SC , 2 , 4 2 , 2 , 49 , 2 , 63 , 2 , 99 , 5 , DBFND 
05020 BTM SCAN, DEBIT 

05610CREDITDVLC ,2, 43, 2, -59, 5, ASH, 2, 45, 2, 44, 2, -49, 5, DEBIT*2, 2, -63 
05680DISC DVLC , 2 , 44 , 2 , -49, 5 , DEB I T + 2 , 2 , 6? , 2 , 43 , 2 , 99 , 5 , D SEND 



09080DISAMTT0 AMB2 + 1 1 , L I TS- 1 



09Q40 BNG DISAMT,AM82+11 



09190 87 1 S AM T+ 1 2 



05680DISC DVLC , ? , 44 , 2 , -49 , 5 , DCS I T + 2 , 2 , 62 , 2 , 43 , 2 , 99, 5 , DSF NO 

05060 BTM SCAN, DISC 

056001SC DVLC , 2 , 49 , 2 , -86, 5 , DI SC +9 

05620 DVLC , 5 , D I SC+9 , 2, 99 , 5 , CRFND 



007 LODKAD J SF •- 1 



00720 


TF 


WC+lO.DKADJ-l, U 




00730 


SM 


DKADJ-1,5, 10 




00740 


S 


WC«-10,DKADJ-l, 11 




00750 


TF 


WC+13, DKADJ-1, LI 




00 7 70 


SM 


DKADJ-1,5, 10 




00/80 


TF 


NUAD , DKADJ-1 , 11 




00820 


CF 


DKADJ-1 




00830 


AM 


DKADJ-1, 2, 10 




00840 


B 


DKADJ-1, ,6 




01 170G0G0G0BTM 


DKADJ, »+16, , 


ESTABLISH PARAMS. UPDAT ABLE BL3:< 


01250 


BTM 


DKADJ, »+16,, 


COMPUTE PAKAMS. B.S.,I.S. LABELS 


01330 


BTM 


DKADJ, n-16,, 


NOW G.L, LABELS FOR PHASE B 


01430 


BTM 


DKADJ, »+16 




01510 


HTM 


DKADJ, *+16, , 


MOW FDR THE TRANSACTIONS BLOCK 


02350 


ODRG 


DKADJ, 


L LAVE PUTADJ THERE 



Q4720DI.MES DAC 32, LABEL DUPLICATES PREVIOUS LABEL' 

04680DUPLABBTM ERPRNT , OLMES- 1 



08970 TDM 
08990ADD TDM 
C9200NUMAMTTF 



09210 
09220 
09230 



A 

TF 

CM 



00+1 ,2 
DO+1,1 

DO+ll,TFNO+ll 
DD+11,99 
Dn+6,TBNR+ll, 11 
DD+6,L,10 



/ 33L 



09240 BH DO 

09330SLOKC AM DD+6,*-* 



11340D0AR3 AM E0AR2+6,L,10 

»»* UNREFE I' L NC ED **» 



11410D0AR4 BT EDI T , ED AR 1 +6 

•»* UNREFERENCED »»* 



1077000FL3 AM E0GL2+6,L,10 



>•» UNRF F EREnC ED »< 



10830DOFL4 BT EDIT, EDGL 1 +6 

UNREFERENCED *»* 



DCPHAS « «< UNDl F I MET » •»* 

01780TRA1 TRA 



BACK TO DC PHASE A 2 



O3050DPUNCMDCA ,0UTPl,T-2 

03330 PUT DPUMCH,,, IN THE CASE UF MULTIPLE ERR3RS 

03410 PU1 OPUNCH 

10090 PUT OPUNCH 



0624ODSFNO TDM INT. T ,0, » DISC 

05680DISC DVLC , 2 » 44 , 2 » -49, 5 » DE RT T + 2 , 2 » 6? » 2,43,2, 99,5,DSr^D 



/ 33 



06120DSWNLBDSA -DCSW,-OBSW,-CDVSW,-AMTSW 

04440 BTM LGC AND t DSMNLB 

(J44BU BTM SETSWS, DSWNLB 

05850G0T0F BTM LGC AND , DSWNLB , , 

06030 BTM LGCANO, DSWNLB 

06070SWELL CF DSWNLB 

06090 SF DSWNLB 



GO TO START MESSAGE 



04680DUPL ABBTM ERPRfJ 1 , DLMES- 1 
04530 



BE DUPLAB 



12100D1DSA DSA D1TCD-EDI T + 100 
12070 



TF WC+8.D1DSA-2 



11970D1TCD BNF NOPRD.PRSW 



12100D10SA DSA DITCD-ED I T+100 
12110 TCO D1TCD 



14260D2DSA DSA D2TCD-BEGND2+ 100 
14220 



TF WC+8.D2DSA-2 



14190D2TCD TFM WC+18,BEGND2 



14260D2DSA DSA D2TCD-8EGND2+ 100 
14270ENDD2 DS ,D2TCD-1 
14280 DEND D2TCD 



/ 3V 



14150D2ZER0DC 



L,0 



12780 


TF 


C1T 


,D2ZERU 


12860 


TF 


C2T 


.D2ZER0 


13000 


TF 


C2T 


,D2ZER0 


13320KN 


TF 


C1T 


, D2ZER0 


13330 


TF 


C2T 


.02ZERO 


13340 


TF 


C3T 


,02Z£RO 


13350 


TF 


C4T 


,D2ZER0 



>*» UNDEFINED »«• 

01780TRA1 TRA 



BACK TO DG PHASE A2 



11260EDAR1 TF 



1 1 120 


TF 


EDARl+11 ,Hf DDSA+3»-> 


11130 


TF 


ED4R1+6, EDAR2+6 


11140 


SM 


EDARl+6, S-2«L, 10 


11230 


AM 


ED4RI+6, S, 10 


11240 


BT 


EDIT.fcOARl+ll 


11310 


A 


EDARl+6, EDAR2+6, 611 


11320 


AM 


EDAR1+U,L,10 


11330E0AR2 


S 


»-• , EDAR 1 + 11 , 1 1 


11330 


S 


EDAR 1 + 6, EDAR2 + 6.6 1 1 


11390 


AM 


EQARl+il.1,10 


1 1400 


S 


EDAR2+6, EDARl+11, 611 


11410DDAR4 


BT 


EDIT, EDAR 1+6 


1 1440 


A 


AOT0T4, EDARl+6, 11 


1 1450 


AM 


EOARl+ll ,L,10 


11470 


BNR 


ARL00P,EDAR1 + U, 11 



11330EDAR2 S 



«-», EDARl + 11, 11 



11110 


TF 


EDAR2+6, HEDDSA+7*5 


11130 


TF 


EDARl+6, EDAR 2+6 


11280 


BT 


EDI T.EDAR2+6 


11300 


A 


ARTOT2,EDAR2+6,ll 


11310 


A 


EDARl+6, EDAR 2+6, 611 


11340D0AR3 


AM 


ED AR2 + 6 , L , 10 



11350 BT EDIT, EDAR2+6 

11370 A ARTOT3,EDAR2+6,ll 

11380 S EDAR1+6,EDAR2+6,61 I 

11400 S EDAR2+6,EDARl+ll,6ll 

11460 AM EDAR2+6, 2*L, 10 



09740EDCM CM •-♦,0,1011 



09630 


TF 


EDCM+6,EDI T-l 




09640 


8NF 


♦+20.EDCM+6, 11 




09680 


TO 


EDI TA-4,EDCM+6, 


11 


09700 


SM 


EDCM+6, 1 ,10 




09710 


TD 


EDI TA-6.EDCM+6, 


11 


09720 


SM 


EDCM+6, 1,10 




09790TDED 


TD 


*-», EDCM+6, 11 




09800 


SM 


EDCM+6, 1,10 




09810 


BNF 


EOCM, EDCM+6, 11 




09810 


8NF 


EDCM, EDCM+6, 1 1 




09820 


BD 


LSTED, EDCM+6 ,11 




09900 


TD 


TDED+6,EDCM+6,61 I 



lOriOEDGLl fF •-»,.-* 



10680 


AM 


EDGL 1+6, S , 10 


10690 


BT 


EDIT, EDGL I + 1 1 


10740 


A 


EDGLl+6,EDGL2+6,611 


10750 


AM 


EDGLl+ll.L.lO 


10760EDGL2 


S 


»-*,EDGLl+ll, 11 


10800 


S 


EDGLl + 6,E0GL2+6,6U 


10810 


AM 


EDGL1+11 , L, 10 


10820 


S 


EDGL2 + 6,EDGL1 + U,61l 


10830D0FL4 


BT 


EDI T , EDGL 1*6 


10860 


AM 


EDGL 1 + 1 1 ,L,10 


11720 


TF 


EDGLl+ll, HEDDSA+2*5 


11730 


TF 


EDGL 1+6, E0GL2+6 


U7-.0 


SM 


EDGL1+6,S-2*L,10 



10760EDGL2 S »-* , EDGL 1 + 1 1 , 11 

10720 BT EDIT, EDGL2+6 

13* 



10740 


A 


EDGL 1+6 


EDGL2+6, 


611 


10770DOFL3 


AM 


EDGL 2 + 6 


L, 10 




10780 


BT 


LDI T , EDGL2+6 




10800 


S 


EDGL 1+6, 


EDGL2+6, 


611 


10820 


S 


EDGL2+6 


EDGL 1+11 


,611 


10870 


AM 


F0GL2+6 


2»L, 10 




nno 


T F 


tDGL 2 +6 


HLODS A+6 


» 5 


117 3 


TF 


EDGL 1+6 


fcOGl 2 + 6 





12310EDIS TF FDITO,*-« 



12220 TF LDlS+ll,HEC0SA+5 

12610ADV AM EDIS+11,5,10 



09620ED I T IF fc I f A , ID II F , , CHAiMGt 10 LOITE L A I L ''. 



09630 


TF 


FOC M 


♦ 6 ■» E 1) I I- 1 


10690 


BT 


EDIT 


, EDGL 1*1 I 


10720 


BT 


EDIT 


,EDGL2+6 


10780 


BT 


F n I T 


, EDGL2+6 


108 30IMIFL4 


BT 


EDIT 


,EDGLl+6 


1 1240 


BT 


EDIT 


.EDARl+l 1 


11280 


BT 


EDI T 


, EDAR2+6 


11350 


BT 


FOII 


, E0AR2+6 


11410D0AR4 


BT 


eni r 


, EDA R 1+6 


115 20 


BTM 


EDIT 


, ARTOI I 


1 1540 


BTM 


EDI T 


, A R T T 2 


11560 


BTM 


EDI I 


, ARrCI3 


11580 


BTM 


edit 


, ARIUT4 


12050 


TFM 


NU AD 


, L D I T 


12060 


TFM 


WC+ 1 


i, fcOI r 


12100D10SA 


OS A 


DlTC.D-tDl r+100 


12210 


TFM 


LDI ! 


+ I I f t D I T t 


12580 


BTM 


tDI T 


» *-* 


12650 


BT 


EDI r 


,EDI TU 


12690 


BT 


EDIT 


,EDI TQ 


12730 


BT 


EDI T 


,EDITO 


12 750 


BTM 


EDIT 


,C IT 


12810 


BT 


EDIT 


, t D I T 'J 


12830 


BTM 


EDIT 


,C2f 


12880K6 


BTM 


EDI T 


,C3T 


12940K 1 


BTM 


tD I T 


,C2r 



137 



12970K8 
13030 
13120 
13610 



BTM 
BTM 
BTM 
BTM 



EDIT.C2T 
EDIT,*-» 
EDIT,*-* 
EDIT,C3T 



09950EDITA DS 



30 



09620EDIT 


TF 


09660 


TF 


09670 


CF 


09680 


TO 


09690 


CF 


09710 


TO 


09730 


TFM 


10700 


TF 


10730 


TF 


10790 


TF 


10840 


TF 


11250 


TF 


11290 


TF 


11360 


TF 


11420 


TF 


11530 


TP 


11550 


TF 


1 1570 


TF 


11590 


TF 


12600 


TF 


12660 


TF 


12700 


TF 


12740 


TF 


12760 


TF 


12820 


TF 


12840 


TF 


12890 


TF 


12950 


TF 


12980 


TF 


13040 


TF 


13130 


TF 


13640 


A 


13880 


TF 



EDI TA f ED I TFf , CHANGE Q TO EDI TE LATER 

ED I TA » CLR + 2 

EDITA-3 

EDITA-4,EDCM*6,11 
EDITA-4 

EDITA-6,EDCM+6,11 
TDED+6 , EDI TA-8 
FLD2 » ED I TA ,6 
FLD3 ,EDI TA ,6 
FLD4» EDI TA ,6 
FLD5 , EDI TA,6 
FLD2 , EDI TA ,6 
FLD3,EDI TA,6 
FLD4 , EDI T A ,6 
FLD5,EDITA,6 
FLD2,EDITA,6 
FLD3 , EDI TA,6 
FL04,EDITA,6 
FLD5,E0ITA,6 
FLD3 , EDI TA ,6 
FLD2 , EDI TA,6 
FLD4 , EDI TA,6 
FLD2,E0ITA,6 
FLD3 i ED I T A ,6 
FLD3,E0I TA,6 
FLD4,EDI TA,6 
FLD4,EDITA,6 
FL03,EDITA,6 
FLD4, EDI TA ,6 
FLD2 » EDI TA ,6 
FLD3 ,EDI TA,6 
GOOF.EDITA 
TB0X-4,EDITA 



09940EDITE DSAC 15,77,777,777.77- ,, 

12210 TFM EDIT+ll.EDJTE / 3 9 



09930EDITF DSAC 1 5 , 77 , 7 77 , 77 7 . 77CR , , 

09620EDIT TF ED I T A , ED I TF , , CHANGE Q TD HDITt LATER 



12590EDITU DS 



12310EDI S 


TF 


EDI TQ, *-• 




12550K9 


S 


C2T, 


EDI TO, 


11 


12570K2 


A 


C?T, 


EDI TQ, 


11 


12640K1 


A 


C1T, 


ED I TO , 


11 


12650 


BT 


EDIT 


, EDI TO 




12680K3 


A 


C3T, 


EDI TO, 


11 


12690 


BT 


EDI T 


,EDI TQ 




12720K4 


A 


C1T, 


EDITQ, 


11 


12 730 


BT 


EDIT 


, EDI TO 




12800K5 


A 


C2T, 


GDI TQ, 


11 


12910 


BT 


EDIT 


,EDI TQ 





01830ENDA1 DS ,*, PROBLEM CAN CLOBBER ANYWHERE BELOW HERE 

Oll'lOCHOVI.PCM HE DD SB , E NO A 1 



07380ENDB DS , TCCB-l 

01690 CM WC + 3»20+ U,ENDH 



105C0ENDBALDSAC 1 1 » FND I NG BAL ,, 



11060 TF FL05,ENDBAL,6 

11910 TF FLD5 , ENOB AL » 6 



09550ENDC DS ,BEGINC-1 

01750 CM WC+5*20+ 1 3.ENDC 



I3f 



121 20ENDD L DS ,GLOUT-l 

01720 



CM WC + 4»20U3,I . IMUIj 1 



14270ENDD2 OS .D2TCD-1 

01660 CM WC ♦ 2 • 20* | i ,1 Nl)l>2 



O708OENDRT DSC 6, 



OASOOf I NL/i: Ttt I N'.AI), I N|il> I , i 
05U90 IK I N\ All , I tjhl' I , t 



05290ENDWDSDS 



.'INPUT* U2 



05250 
OSS?!) 



CM 

('. M 



( in ,i nitwit' 

I III ,1 NI>WI>' 



I I I Ml) 111 CARD 
1 1 I Ni) HI CARD 



031 10ERPRNTBD OMES.PSW, 



STANDARD '1*11111 INI Til IIIJII'IJ! DIAGNOSTIC 



32 1 TIM I RPrtN I - I , K Ml. S - I 

01220 B I l RI'kNI 

1360 !R 1)1)1 Pill *l , I RPR'vll - I , 1 1 

03610 TIM I RI'KNI-l .RMF.S-l 

3020 B7 I RI'RNT 

04460 BTM I RPRNT , li AOLAH- I , 

ERPRNT ,DLMES- 1 
LRPRNT ,BADLAB- L 
ERPRNT t 3ADDC- 1 
ERPRNT . BADRP- 1 
ERPRNT, OVBMES-1 
06530 BTM ERPRN T , I) VBM2 - I 

06540 ATM t'*PRNT,JUTPUT + 237, .BLANK CARD 

06640 BTM ERPRNT , AMME S- 1 

06880 BTM ERPRNT. BAD ACT-l 



FOR BEGINNING A NEW ROUTINE 



04680DUPI ABB TM 
05870 BTM 
06050 BTM 
06170 BTM 
06520UVERH BTM 



/V* 



06960 BTM 

7 260 BTM 

07780 BTM 

08580 BTM 

08 730 BTM 

09 290 BTM 



ERPRNT, OBMES-l 
ERPRNT, TITSAV-1 
ERPRNT, NOCMES^l 
ERPP.NT, TWUMES- I 
ERPRNT, MLBMES-1 
ERPRNT, SLMES-l 



00310EWC DSB 20,11,, TRANSFER ODA AREA 

00320WC OS ,EWC-19 



EXIT »•» UNDEFINED •»» 



01040 CALL EXIT 

01090 CALL EXIT 

06550 CALL EXI T 

12330 CALL EXIT 



04590F I NL ZE TR I NS AD . ENDRT , 6 

04 700 8 7 FINL/E 



104C0FLD1 DSA 0UTPUT*6 



10620 TF 

10980 TF 
1 1 150ARLOOPTF 

11490 TF 

11)50 TF 

11980 TFM 

12230 TF 



TF I. ABD*-6 , F LO I 

• ♦30, ELD I 

TFARLB*6,FL0l 

♦♦30, M I 

•♦30.FLD1 

FLD1 , JUTPUT+ 16 

TFMD2+11 ,FL0l 



10410FLD2 DSA niiTPUT+96 



10700 TF FL02,EDITA,6 

11030 TF FLD2 , BEGBAL » 6 



11250 TF 

11530 TF 

11880 TF 

11990 TFM 

12660 TF 

12740 TF 

13040 TF 



FL02,EDITA,6 
FL02,EDITA,6 
FLD2 » BEGBAL , 6 
FLD2 ,0UTPUT+116 
FL02,E0ITA,6 
FL02,E0ITA,6 
^L^Z - ED! TA i £ 



10420FLD3 OS A OUTPUT* 1 1 8 



10730 


TF 


FLD3 


,EDITA 


,6 


11040 


TF 


FL03 


,TOTOB 


t6 


11290 


TF 


FL03 


.EOITA 


.6 


11550 


TF 


FL03 


,EOITA 


.6 


11890 


TF 


FL03 


, TOTDB 


,6 


12000 


TFM 


FLO 3 


.OUTPUT+146 


12600 


TF 


FLD3 


, EDI TA 


.6 


12760 


TF 


FL03 


» EDI TA 


t6 


12820 


TF 


FL03 


» EDI TA 


,6 


12950 


TF 


FL03 


, EDI TA 


,6 


13130 


TF 


FL03 


, EDI TA 


,6 



10430FLD4 DS A OUTPUT+138 



10790 


TF 


FL04, 


»EDI TA,6 




11050 


TF 


FLD4 1 


,T0TCR,6 




11360 


TF 


FLD4, 


,6DI TA,6 




11570 


TF 


FLD4, 


, EDI TA,6 




11900 


TF 


FLD4, 


, T0TCR.6 




12010 


TFM 


FLD4, 


,OUrPUT+176 




12700 


TF 


FLD4 , 


,EDI TA,6 




12840 


TF 


FLD4, 


,EDI TA.6 




12890 


TF 


FLD4, 


,EDI TA,6 




12900 


TF 


• +30i 


,FL04 




12980 


TF 


FLD4 i 


,EDI TA,6 




13500KJ 


TF 


FL04, 


,ASTS-66+22, 


6 


13510 


TFM 


FLD4 1 


,0,610 




13540KK 


TF 


FLD4, 


, ASTS-66 + 22, 


6 


13550 


TFM 


FLD4, 


,0,610 





10440FLD5 DS A OUTPUT-t-158 



c 



1 0840 


TF 


FLD5 i 


,EDITA,6 


1 1060 


TF 


FLD5, 


, ENDB AL , 6 


1 1420 


TF 


FLD5, 


,EDI TA,6 


1 1590 


TF 


FLD5, 


,EDI TA,6 


11910 


TF 


FLD5, 


i ENDBAL , 6 


120?0 


TFM 


FLD5 i 


,UUTPUT+206 



08040FLFX DSAC 3,777 



07890NOGO 

07900 

07910 



TD 
TD 
TD 



FLFX i PHBERS 

FLFX-2,PHBERS-1 

FLFX-4,PHBERS-2 



14030FLFY DSAC 4, 777 



13890 
13900 
13910 



TD FLFY, PHBERS 

TD FLFY-2,PH8ERS-1 

TD FLFY-4,PHRI-RS-2 



08O60FLF2 DSAC 3,7/7 

07920 TD FLF2.PHCEKS 

07930 TO FLF2-2,PHCERS-1 

07940 TD FLF2-4.PHCERS-2 



14040FLY DSAC 22, L ANGUAGfc ERRORS 777 

13920 TO FLY.PHCERS 

13930 TD FLY-2.PHCERS-1 

13940 TO FLY-4,PHCFRS-2 



08 140FCRTHCTU C.NT . . NPI IT + 20 

07470 



RE FQRTHC 



....i.ti.lli,J,.ll . 



02360GETADJBNF CFDC,»-1,, PERMANENT DISK INPUT ROU f I NF 



02370 


CF 


GETADJ- 


1 






02410 


TF 


OD+6, GETADJ- 1 






04170 


BTM 


GETAOJ, 


WC+6»20 






0*240 


BTM 


GETADJ, 


WC+7»20, 


711, 


Rt-CALL PHASE 


05960 


BTM 


GETADJ i 


WC+8»20, 


711, 


LINK TO PHASE 


07270 


BTM 


GETAOJ, 


WC+3*20, 


711 




07880 


BTM 


GETAOJ, 


WC*9»20, 


711, 


LINK TO Dl 


08010 


BTM 


GETADJ, 


WC+6*20 






08020 


BTM 


GETADJ, 


WC+7«20, 


711, 


LINK TO B 


09440 


BTM 


GETADJ, 


WC + 20 






09450 


BTM 


GETADJ, 


WC + WO, 


711 




1 1690 


BTM 


GETADJ, 


WC+10»20 


t 711 




11940 


BTM 


GETADJ, 


WC*4*20, 


711 




12200REGN028TM 


GETADJ, 


WO2*20 






13990 


BTM 


GETAOJ, 


WC+6*20 






14000 


BTM 


GETADJ, 


WC+7»20, 


711, 


LINK TQ B 


1406000G 


BTM 


GETADJ, 


WC+6«20 






14070 


BTM 


GETADJ, 


WC*7*20, 


711 





02600GETA2 GET CARE 

02690 B7 GFTA2 

02820 TCD GFTA2 

02880 OORG GETA2 



02180GETNO RCTY ,,2 



02110WMATP BO Ut ■ TNtl, MLPRSW, , 

02220 HC4 GF.TNO 

02230 SF GFTNIH2 

02240 TF PRIN»2S,Gi:TNIH' 



DIGIT IN POS. 2 OF SECTOR FOR YES 



10650GLBNF BNF *-24,»-» 

lOS.BOGLLUtlPTF Gl RNF + 1 1 , »-• 

© 



10590 


TF 


OUTPU r + 6 , GLBNF + I I ,11 


10600 


. AM 


GLBNF+ll , 1,10 


10610 


SF 


GLBNF+ll , ,6 


10630 


AM, 


GLRNF+11 ,2,10 


1 Oft 70 T f" I ABO T F 


*-» , GLRNF «■!!, 11 



11960GLEDG DSAC 33, 



GENERAL LEDGER ,. 
11790 BTM HEDLIN.GLEOG 



10580GLLO0PTF GLBNF+ll,»-» 



10880 
10890 
10890 
U700GLOUT TF 
12030'NiOPRD TFM 



AM 

BNR 
BNR 



GLLOtJP + l 1 ,5, 10 
GLLOOP,GLLOQP+ll, 11 
GLLOOP,GLLUOP+ll, 11 
GLLOOP+1 1 ,HE0DSA+5* r j 
WC+4*20+18,GLL00P 



117C0GL0UT TF GL LCOP+ 1 1 , HEDOS A* 5« 5 

12040 TFM WC+18,GL0UT 

12l20f.Nnui OS .GLOUT-l 



01 170G0GOGOBTM OK AC J , « + 1 6 , , ESTABLISH PARAMS. IJPPATABLC BLOCK 

01120 BH GOGOGO 



14080GQ0F DSAC 4 I , YOU COUFlO, OUT OF BALAMCE BY 

GOOF , (.01 TA 
HEOL IN, GOOF 
GOOF, ASTS 
GUOF-16, ASTS 
HEOL IN, GOOF 
GOOF , ASTS 
GOOF-16, ASTS 



13640 A 

lit, SO BTM 

13660 TF 

13670 TF 

13680 BTM 

IViOO TF 

13810 TF 



13820 BTM HEDLINtGOOF 



0585OGOTOF BTM LGCAND, DSWNLB , , GO TO START MESSAGE 
04020 BE GOTOF 



08770HAVIT AM AGOGO+35 , I , 10 
08670 



BE 



HAVIT 



01820HOSA DSA HEDCR 



01180 
01340 



DSA 
DSA 



HEDDSB+4*5,HEDDSB+3»5,HDSA 
HEDDSB+3»5,HEDDSB+2*5,HDSA 



00190HEDDR DS ,19600, CORE ADDRESS STARTING PROBLEM HEADER 

00260HEDDSADS .HEDDR+4 
01820HDSA DSA HEDDR 



00260HEDDS ADS ,HECDR+4 



00270HEDOSBDS 


,HEDDSA+10*5 




01200 


BTM 


VK AD J t HEDDSA + 5 1 1 


RELOCATE B.S..I.S. LABELS TABLE 


01280 


A 


HEDDSA+6*5,SM7+11, , 


WHOOPS — UPDATE HEADER DSA-S 


01290 


A 


HEDDSA+7»5,SMf+ll,, 


FOR UPDAT ABLE BL3CK 


01310 


A 


HEDDSA, ADJF, , 


FOR PHASE D2 USE 


01320 


A 


HEDDSA + 5 t ADJF 




01350 


BTM 


VKADJ,HEDDSA+5«5 




01360 


TF 


HEDDSB,HEDDSA+5»5, , 


USE HEDDSB IN THE HEADER 


01420 


BTM 


VKADJ,HEDDSA+5»5, , 


UNRELOCATE VECTORS 


01450 


BTM 


VKADJ,HEDDSA+5*5 




01460 


A 


HEDDSA+2«5,ADJF 




01470 


A 


HEDDSA + 3*5 ,ADJF, , 


UPDATE HEADER DSA-S 


01480 


A 


HEDDSA + 4»5 ,ADJF, , 


FOR PHASE Dl USE 


01490 


A 


HEDDSA+5»5 , ADJF 





01530 


TF 


01620 


A 


06800 


TF 


07720 


C 


08230 


TF 


08440 


CM 


094 10BEG I NC TF 


09430 


s 


1 1090 


TF 


11110 


TF 


11120 


TF 


11700GLOUT 


TF 


11710 


TF 


11720 


TF 


12220 


TF 


12250 


TF 



»+23,HEDDSA+8»5,, 
HEDDSA+8»5 ,ADJF 
AMBA+ll,HEDDSA+6*5 
LPBD+21,HEDDSA+9«5 
AG0G0+ll,HEDDSA+8«5 
HEDDSA+9»5,0,9 
T0SWAD,HEDDSA+6»5 
T0SWAD,HEDDSA+9*5 
ARBNF+11 ,HEDDSA+4*5 
EDAR2+6,HEDDSA+7*5 
E0ARl+U,HEDDSA+3*5 
GLLOOP+l 1 , HED0SA+5»5 
fcDGL2+6,HE0DSA+6«5 
EDGLl+ll ,HEDDSA+2*5 
tDIS+11, HEDDSA+5 
ISBNF+11 , HEDDSA 



TRANSACTIONS BLOCK REQUIRES 



00270HEDDSBPS ,HECDSA+10«5 



00280LDSA 


DS 


,HEDDSB+5«5+2 


01 UOCHOVLPCM 


HEDDSB, ENDAl 


01 180 


DSA 


HEDDSB+4»5,HEDDSB+5»5,HDSA 


01 180 


DSA 


HEDDSB+4»5 ,HtDDSB+ 3*5,HDSA 


01270 


DSA 


HEDDSB+5, HEDDSB, WC+20+ 13 


01270 


DSA 


HEDDSB+5 , HEDDSB , WC+2 0+13 


01340 


DSA 


HE0DSB + 3"»5,HEDDSB + 2»5,HDSA 


01340 


DSA 


HEDDSB +3*5, HCDDSB+2»5,HDSA 


01360 


TF 


HEDDSB, HfcDDSA+5»5 , , USE HEDDSB IN THL HEADER 


01370 


A 


HEDDSB, ADJF,, TO SAVE ADJUSTED START 


01440 


OSA 


HED0SU+}*5, HEDDSB +5, WC+20+13 


01440 


DSA 


HEDDSB+3*5,HEDDSB+5,WC+20+l3 


01520 


DSA 


HEDDS3+5*5,HE0DSB+4»5, WC+20+13 


01520 


OSA 


HE 0DSB+5»5, HE 09SB+4* 5, WC+20+13 


06 790NNNN 


TF 


IFLB+l 1 , HEDDStS 



10070HEDL INBD K61.PRSW.7 



10080 


TF 


OUTPUT 


n 12.HEDLIN-1, 


,11 


10110K61 


TF 


0UTPUT+138.HEDLIN-1, 


,11 


10910 


BTM 


HEQL IN, 


, ASTS 




10920 


BT 


HEDLIN, 


i T I TLES 




10940 


BTM 


HEDL IN, 


, ARTB 





10960 


BTM 


HEDLIN 


ASTS 


11620 


BTM 


HEDLIN 


ASTS 


11630 


BT 


HEDL IN 


TITLES 


11650 


BTM 


HEDLIN 


INCSTA 


11670 


BT 


HEDL I N 


TI TLES+2»5 


11680 


BTM 


HEDLIN 


ASTS 


11760 


BTM 


HEDLIN 


ASTS 


11770 


BT 


HEDLIN 


TITLES 


11790 


8TM 


HEDLIN 


GLEDG 


11810 


BT 


HEDLIN 


TITLES+5 


11820 


BTM 


HEDLIN 


ASTS 


13380 


BTM 


HEDLIN 


ASTS 


13390 


BT 


HEDLIN 


TITLES 


13410 


BTM 


HEDLIN 


BALSH 


13430 


BT 


HEDLIN 


TITLES+3»5 


1 3440 


BTM 


HEDLIN 


ASTS 


13570 


AM 


HEDLIN+18,8, 10 


13650 


BTM 


HEDLIN 


GOOF 


13680 


BTM 


HEDLIN 


GOOF 


13700BINGO 


BTM 


HEDLIN 


BING 


13720 


BTM 


HEDLIN 


BING 


13790OUTNOTBTM 


HEDLIN 


NOTE 


13820 


BTM 


HEDLIN 


GOOF 



09400HEND DSAC 4, END ,, 

««» UNREFERENCED »** 



07060H0LAB OS 8 

04300 

04310 

04410 

04520CLAB 

04580 



06720HOSW DS ,UPC0L6+10 

06610 TD HOSW, TRSW 

06730AMDSA DS A - AM T S W , HOS W, -DCS W 

Mr 



05440 I FEND CM SC AN - 1 , 09 , * 1 , IF EMU OF CONTROL WOKO 

0^160 BE I F F NO i > i AH- SO 



TF HOLAB , CLR + 6 

TFM AMB+6.H0LAB-8 

C HOLAB, LSMNEM, , IS LABEL SAME AS PREVIOUS 

C «-»,HOLAB 

TF L SMNEM f HOL AB 



05170ITNUM C C70b , (.01. , 1 1 , CHECK FOR NU'^FKICS 

*•* UNREFERENCED *«» 



105101 NCS TADSAC 33, INCOME S TA i i:MENT ,, 

11650 BTM HEDL IN, INCSTA 



02450INPUT DAC 40, ,, PL R.MAN t N I 



02610 




INPUT+b, TI TLA 2 






02630 


c 


INPur+8, ADMNA2 






02730CA2 


■c 


CCA2, INPUT+160, 7 






03 07 ORE AO 


TO 


INPUI + 1 , INPUT ♦ 160 , , 


R M 


Li IVfcN LOCATION 


30/ORl.AO 


TD 


INPUT+1, INPUT+160,, 


R^l 


TU KV-fcN LOCATION 


3000 


BNR 


RMCHK , INPUT+lt , 


IF 


CART ACTUALLY UA0 


031 70 


TR 


OUTPUT-l , INPUT-1, , 


NO 


RMS ALLOWED ON CARD 


(Mi: 4 


TFM 


*+35, INPUT-? 






03520 


fR 


OUTPUT*- 39, INPUT-l 








CM 


INPUT+2,6349,8 






03640 


TFM 


RMSCAN+23, INPUT-2 






037 70 


TR 


CUTPUT+39, INPUT-1 






03970L ABCHKC 


T I TL B , I NPUT + H 






03990 


C 


A M I N , INPUT+B 






04010 


c 


XPEFB, INPUT+6 






040 30NOCOL7C 


CLR + 6, I NPUT+2Q , , 


1 S 


MNttMUNIC fltLO I1LANK 


04190CCC 


c 


CLR, INPUT + 160,7 






04290 I SI. AR 


TFM 


AC LA 6+ 1 1 , lNPUT+14, , 


COLLECT ♦ LEFT-JUSTIFYING 


04390 


CM 


ACLAR+11 , INPUT+22 






04 6 5 Of, ON T 


TfM 


COL.INPUT+2? 






05290b NOWDSDS 


, INPUT+142 






07220 


WA I Y 


.NPUT, , , FIRST I INu 


01 


L 0(, 


ot;mo 


TR 


TI TSAV-1 , INPUT- 1 







07460 C 
07480 C 
07500 C 
07600TCMC C 
08140F0RTHCTD 
08150 TO 
08160 TD 
n«?tn tpm 
08220 TFM 
08500QCEND CM 



XREFC, INPUT+6 
TITLC, IMPUT+8 
ADMINC, INPUT+8 
CLR,INPUT+160,7 
CNT, INPUT+20 
CNT-1, INPUT+18 
CNT-2, INPUT+16 
CCOL : ! N p, JT*22 ; ; 
CMC+ll.INPUT+22 
CCOL, INPUT+142,, 



cct oniMTCQ nw vrocc 



IF CARD OVER 



0647OINSAD OS 



t»-5 



04590F I NLZFTR 



04610 
04620 
04640 

05890 
05900 
05910 
06480 
06490 
06500 



AM 

C 

TF 
TR 
AM 

r 

AM 
TF 
C 



INSAD, ENDRT, 6 
INSAD, 6, 10 
INSAD, TRLAB+6 
AO, INSAD 
INSAD, ENDRT, 6 
INSAD, 6, 10 
INSAD, TRLAB+6 
INSAD, 6, 10 
INSAD, INST+6,6 
INSAD, TRLAB+6 



07130INST DSC 1,0,, 



ASSEMBLY AREA TO PUT INTO THE 



06220CAFND TDM 
06240DSFND TDM 
06270VCFND TDM 
06430SNEG 
06460 
06490 
06770AMTN 



SF 
TD 
TF 
TD 



INST.O,, 
INST.O, , 
INST.O, , 
INST 

AREA, INST, 2 
INSAD, INST+6,6 
INST, COL, 11, 



CASH 
DISC 

VGUC FOUND 



AMT N FOUND 



12290ISRNF BNF 



»-12,»-» 



12250 TF 
12260 SM 
12270ISLOOPAM 



12280 
12320 
12350 
12360 
12380 



AM 
TF 
S 

AM 
A 



ISBNF+11 .HEDDSA 
ISBNF+11 ,2,10 
ISBNF+11,3,10 



ISBNF+11,2,10 
TFLBIS+ll,ISBNF+ll 
MMIS+ll, ISBNF+11, 11 
ISBNF+11,2,10 
TFLBIS+6, ISBNF+11, 11 



1 24401 SBTABDSA K9,K8,K7,K6,K5,K4,K3,K2,K1,K0 

12410 TFM ISB7 + 6, I SB TAB, 711 



12430ISB7 B7 *-* 



12410 
12420 



TFM ISB7+6, I SBTAB, 711 
S ISB7+6.99 



05600ISC DVLC ,2,49,2,-86, 5,DI5C + 9 

05590DEBIT DVLC ,2,44,2,-45,5, ISC, 2, 42, 2, 49, 2, 63, 2, 9 9, 5, DBFMD 



04290ISLAB TFM ACLAB+11, INPUT+14, .COLLECT + LE F T- JUS T I F Y I NG LABEL 
04040 BNE ISLAB 



12270ISL0OPAM ISBNF+11,3,10 



12630 


B7 


ISLOOP 


13210 


B7 


ISLOOP 


13230 


B7 


I SLOOP 


13250 


B7 


ISLOOP 


1 3270 


B7 


I SLOOP 


13290 


B7 


ISLOOP 


13310 


B7 


I SLOOP 


13360 


B7 


ISLOOP 


13530 


B7 


ISLOOP 



/>7 



12510KBAD RCTY 



12450 OS A KZ,KY,KX,KW,KV,KUtKT,KS,KBAD,KBAD 

12450 OSA KZ,KY,KX,KW,KV,KUiKT,KS,KBAO,KBAD 



12540K8ADMSDAC 37iBAD OUTPUT CODE IN I.S., B.S. LABELS' 
12520 WAT Y KBADMS 



U500KJ TF FLD4, ASTS-66+22,6 

12460 OSA KR,KQ,KP,KO,KN,KM,KLtKK,KJ 



13540KK TF FL 04 , A S TS-66 ♦ 22 , 6 

12460 OSA KR,KQtKP,KO,KN,KM,KL.KK,KJ 



13460KL BT TITLO.TlTLD-l 

12460 OSA KR,K.Q,KP,KO,KN,KM,KL,KK,KJ 



13370KM BT T I TL , T I TLO- I 

12460 DSA KR,KQ,KP,KO,KN,KM,KLiKKtKJ 



13320KN TF C1T.D2ZER0 



12460 DSA KR,KQ,KP,Kl),KN,KM,KLtKK,KJ 

13450 B7 KN 

13480 B7 KN 



133C0K0 TF ST0R3*C2T - 

12460 DSA KRtKQ,KPtKt)tKNiKM,KL t KK t KJ 



If*. 



13280KP TF ST0R2,C2T 

12460 DSA KR,KQ,K.P,KO,KM,KM,KL ,KK,KJ 



13260KG TF ST0Rl t C2T 

12460 DSA KR,KO» K P , KO , KN , KM , K L » KK , K J 



13240KR TF STOR3.C3T 

12460 DSA KR,KQ,KP,KI) f KN,KM,KLiKK,KJ 



13220KS TF STOP2.C3T 

12450 DSA KZ ,KY, KX f KW,K7 ,KU,K T , KS , KfiAD,K(!AD 



13200KT TF ST0Rl t C3T 

12450 OSA KZ t KY, KX, KW, KV.KU.K T ,KS , "KiUD.KBAQ 



13180KU TFM KW+23, STDR3 

12450 DSA KZ,KY,KX,KW,K>/,KU,KT.KS,KiAO,KKA0 



13160KV TFM KW+ii, ST0R2 

12450 DSA KZ,KY,KX,KW,KV,KUfKT,KS,K!lAD,KliAD 



13110KW TFM «+23,STORi 



12450 USa KZiKYf K-X,KW, KV.KU.KT , K.S , KH AD , K B AO 



13140 


A 


C2T.KW+23, 11 


13160KV 


TFM 


KW+23.ST0R2 


13170 


B7 


KW+12 


13 18 OKU 


TFM 


KW+23.ST0R3 


13100 


B7 


KW+12 



13090KX TFM KZ+23, ST0R3 

12450 



DSA KZ,KY,KX,KW,KV,KU,KT,KS,KBAD,KBAD 



13070KY TFM KZ+23. ST0R2 

12450 



DSA KZ,KY,KX,KW,KV,KU,KT,KS,KBAD,KBAD 



13020KZ 



TFM »+23,STORl 



12450 


DSA 


KZ,KY,KX,KW,KV,KU,KT,KS ,KBAD,KBAD 


13050 


A 


C1T, KZ+23, 11 


13070KY 


TFM 


KZ+23, STQR2 


13080 


B7 


KZ + 12 


13090KX 


TFM 


KZ+23, ST0R3 


13100 


B7 


KZ+12 



12620K0 



0UTLIN,0UTLIN-1 



12440ISBTABDSA 


K9 


12930 


B7 


KO 


12960 


B7 


KO 


13010 


B7 


KO 


13060 


B7 


KO 


13150 


B7 


KO 



12640K1 



C1T.EDIT0, 11 

12440 I SB TABDS A 



K9,K8,K7,K6,K5,K4,K3,K2,K1,K0 



l>"4 



12570K2 A C2T,EDITQ,11 

1244 I SB TABDS A K9,K8,K7,K6,K5,K4,K3,K2,K1,K0 

12680K3 A C3T.fcDITQ, 11 

12440 I SBTABDSA K9 , KB , K7 , K6, K 5 , K4 , , K2 , K I , KO 

12720K4 A ClT.EDITO.il 

12440 I SBTABDSA K9 , K 8 , K7 , K6 , K5 , K4 , K3 , K2 , Kl , KO 

10350K41 PUT PRINT 

103200UTLINBD K41.PRSW 

128C0K5 A C2T,EDITQ,11 

12440ISBTABDSA K9,K8,K7,K6,K5,K4,K3,K2,K1,K0 



10240K51 TR OUT PUT+39 , T I T S A V- 1 

10140TITLO BD K51.PRSW 



12880K6 BTM EDIT,C3r 



1 24 AO I SBTABDSA K9,K8,K7,K6,K5,K4,K3,K2,Kl,K0 



10110K61 T F 0UTPUT+138.HEDLIN-1, 11 

10070HEDL I NBD K61,PRSW,7 



/ i"S" 



13580 AM K.61 + 6,8,10 



12940K7 BTM EDIT.C2T 

124401SBTABDSA K9 , K8 f K7 , K6, K5 , K4 , K3 , K2 , K 1 , KQ 



10020K71 WN OD+7,900 



09970BLLIN BD K71.PRSW 
10040 BP K71 



12970K8 BTM EDIT.C2T 

12440ISBTABDSA K9 ,K 8, K7 , K6, K5 ,K4 , K 3 , K2 , K 1 , KO 



12550K9 S C2T.EDITQ,ll 

1244 0ISBTABDSA K9,K8,K7,K6,K5,K4,K3|K2,K1,K0 



00170L 



DS 



.7, 



LENGTH OF WISAL FIELD 



00240R 
00250S 
01000 

05990CRFND 
09150AMB2 
09230 
09420 
10520ARTOT1DC 
10530ARTOT2DC 
10540ARTOT3DC 
10550ARTOT40C 
10750 AM 
10770DOFL3 AM 



OS 
DS 
CM 
TFM 
MM 
CM 
SM 



101310 
108 6 



AM 
AM 



,3«L, 
t3«L, 

LDSA.Li 10 

ADREG , L 

«+9,L*l00,710 

DQ+6,L,10 

TOSWAD.L, 10 

L,0 

L,0 

L,0 

L,0 

EDGLl+llf L'tlO 
EDGL2+6.L, 10 
E0GL1 + U,L,10 
EDGL 1+ 11 1 L 1 1 



LENGTH OF 
LENGTH OF 



A LEDGER ACCOUNT IN CONSTANT BL3C< 
A LEDGER ACCOUNT IN UPDATABLE BL3SK 



10870 


AM 


EDGL2+6, 


2»L, 10 


11 140 


SM 


EDAR 1+6, 


S-2»L, 10 


11320 


AM 


EDARl+11 


,L,10 


1 1340DOAR3 


AM 


EDAR2+6, 


L,10 


11390 


AM 


L0AR1 + 11 


,L, 10 


11450 


AM 


EDARl+11 


,L,10 


11460 


AM 


EDAR2+6, 


2»L, 10 


1 1 /40 


SM 


EDGL 1+6, 


S-2»L , 10 


14110CIT 


DC 


L,0 




14120C2T 


DC 


L,0 




14 HOC 3 T 


DC 


L,0 




14140C4T 


DC 


L,0 




14 150D?£ ERODC 


L,0 




14160SmRl 


DC 


L,0 




14 170ST0R2 


DC 


L,0 




14180STUR3 


DC 


L,0 





03970L ABCHKC T I TLB , INPUT + B 

03190 B7 LABCHK 

03590 B7 LABCHK 

07450 DORG LABCHK 

09460CTCD TFM WC + 5 *20+ 1 8 , L ABCHK , , tifcGIN C rflTH CARD ALREADY READ 

09480 TFM WC+13, LABCHK 

09490 TFM NUAD, LABCHK 

09530CLDSA OSA CTCD- LABCHK +100 

096 10 DO KG 1 ABCHK 



04490L ASWOKTF CLAB+6, TRLAB+6 

04450 BNF L ASWOK, TRSW, , NOW TcST IF STATUS SWS ARt ALL I "4 O^DL* 



07360LBDSA OSA TCDE-l SMNEM+107 

07330 TF WC+8.LBDSA-2 



0303OLCSW DSC 1,0 

07660nuiC2 TDM LCSW.1,11 



07970BDNN BD MONCAL.LCSW 

13980 BD MONCAULCSW,, THIS MUST BE SET SOMEWHERE YET 



00280LDSA DS , HECDSB*5»5+2 

002vOT t I LfcSUi ,LUiA+5 
01000 CM LDSA.L.iO 



04770LGCANDTDM TRSW.O,, RESET OUTPUT SW TO OK 



04440 


BTM 


LGCAND,OSWNLB 






04790 


TF 


BDL+U,LGCAND-l,ll 


,PULL 


IN INPUT SW ADDRESS 


04860 


AM 


LGCAND-1,5,10, 


THAT 


SW WAS OK 


04870 


BNR 


LGC AND+12 » LGC AND- 1 


,11, 


BACK FOR ANOTHER 


04870 


BNR 


LGCAND+12.LGCAND-1 


,11, 


BACK FOR ANOTHER 


05850G0T0F 


BTM 


LGC AND » DSWNLB , , 


GO Ta 


l START MESSAGE 


06030 


BTM 


LGC AND , DSWNLB 






06600 


BTM 


LGC AND , AMDSA2 






06620 


BTM 


LGC AND , AMDSA 






06940 


BTM 


LGC AND,OBDSA 







O9060LITS OS » » 

08830 TF LITS,TFN0+11,11 

0"080DISAMTTD AMB2 + 1 1 , L I TS- 1 

09170 TD AMB2+-11, LITS-2 



00180LNTH DS ,3000, CORE ALLOTEU FOR STUDENT PROGRAMS, LOG ENTRYS 

03920AREA DSS LNTH 



LOAD »•» UNDEFINED #*» 

00980PRIN CALL LOAD, 361,, » "CHANGE IF PROBLEM NOT DIM NO. 361»* 



002C0L0WE STDS ,2302, LOWEST CORE USED — BEGINNING DORG — DDA-S 

00300 DORG LOWEST 



05650LPARENDVLC , 2 , 24 , 2 , 99 , 5 , LPFND 

05040 BTM SCAN , LP AREN 



077COLPBD AM CNT BD+ 1 1,1,10 



07720 


C 


LPBD+21,HEDDSA+9*5 


07740CNTBD 


BD 


LPBD,*-» 




07750 


TD 


NOCMES+76, 


,LPBD+21 


07760 


TD 


NOCMES+74, 


, LPBD+20 


07770 


ID 


NOCMES+72, 


, LPBD+19 


07800 


B7 


LPBD 





05750LPFND TD SGSW2 , SGSW, , BOUNCING OUT OF SCAN WITH ( FOUND 

05650LPARENDVLC ,2, 24, 2, 99, 5, LPFND 



02560LPSW DSC L,0,, PARENTHESES NOT CLOSED 

05770 TDM LPSW.1,11 

06130RPDSA DSA -L PS W , -SG S W, -SGS W2 

06150RPFND BNF UPCOL,LPSW 

70 30O8DSA2DSA 0BSW,-DCSW,-AMTSW,-CDVSW,-LPSW,-SGSW2 



04990LSCANSTF CM42 + 1 1 ,COL , , 
05180 



03930LSMNEMDSAC 4,,,,, 

04050 CM LSMNEM-4,2323,3, YES, WAS THERE ANY PREV. LABEL 



SAVE POINTER 

BH LSCANS,,, NO, GO RUN THE ALPHA GAUNTLET AGAIN 



04410 C HOLAB, LSMNEM, t IS LABEL SAME AS PREVIOUS 

04570TRLAB TR LSMNEM+ 7 , L SMNEM+2 I , 2 

04570TRLAB TR LSMNEM+7 , LSMNEM+2 1 i 2 

04580 TF LSMNEM, HOLAB 

07290 TFM WC+ 1 3 , LSMNEM- 7 

07300 TFM NUAD, LSMNEM- 7 

07360LBOSA DSA TCDB-L SMNEM+ 1 7 



09870LSTED SM TOEC+6,2,10 

09820 BO LSTED,EDCM+6,11 



05710MINUS DVLC , 2 , 54 , 2 , 49 , 2 , 55, 2 , 64 , 2 , 62 , 2 , 99 , 5 , MNFND 
05090 BTM SCAN, MINUS 

05640AMT DVLC , 2 , 4 1 , 2 , 54 ,2 , -63 , 5 , M I NUS+2 , 2 , 99 , 5 , AMFNO 



00380MLPRSWDSC 1,0,, I IF MULTIPLE PROBLEMS 

02110WHATP BO GETNO.MLPRSW, , DIGIT IN PQS. 2 UF SECTOR FOR YES 



12400MMIS MM »+9,500,710 



12340 TFM MMIS+11,79,10 

12350 S MM1 S+ll, I SBNF+ll, 11 



05830MNFND TDM SGSU.1,11,, MINUS UR - FOUND I FOR MINUS, FLAGGED 

0571T11NUS DVLC , 2 , 54 , 2 , 49 , 2 , 55 , 2 , 64 , 2 , 62, 2 , 99 , 5 , MNF MD 
05730SMINUSDVLC ,2, 20, 2, 99, 5, MNFND 



00210MCNCALDS ,796, THIS SHOULD NOT BE VARIED TOO INDEPENDENTLY 

02140 DSA MONCAL 



07970BDNN 
7980 
139 70 
13980 



BO MONCAL » LC S W 
BNC1 MONCAL,,, 
BNC1 MONCAL 
BD MONCAL , LC SW , 



*»»* SWITCH 1 UN FOR BATCH RUN »»* 
THIS MUST BE SET SOMEWHERE YET 



1401OMCNNS DAC 17.BAL. SMELT ERROR ,, 

13960 WATY MONNS 



09030MQRYETBNR SOM AM l , AM B ? <■ 1 1 

■09010 BNR MORYET , TBNR4-1 I , 11 



08760NLBMESDAC h7,NU PkuG HHJNL 1 FOR THIS TR AN TYPE, TRANS Ml). 77 7' 



08 700 
08 710 
08 720 
08 7 30 



TO 
TO 
TO 
BTM 



NLBMES+90.CNT 
NLBMES+88,CNT-1 
NL B M E S + 8 6 » CN T - 2 
ERPRNT,NLBMES-l 



06790NNNN TF TFL " + 1 I * HE DD SB 

05220 BNL NNNN , , , YES, Of) 'TO PROCESS 



09120N0AMTSDS ,• 



H t) I T F N f 1 TF NOAMTS,«-»,, PROC i '> S . T R ANS AC T I UN HeAOER 

08840 BNF NSUBL , NOAM TS 

08850 CF NOAMTS 



07810NOCMESDAC 40,f,0 CODE PROVIDED FOR TRANSACTION NLi 7 7 7 ',, A LA MCCOY 



07750 TD NOCMES+76, LPBD+21 

07760 TO N0CMES+74,LPB0«-20 

/If 



07770 TO NOCMES+72, LPBD+19 

07780 BTM ERPRNT.NOCMES-l 



04030NOCOL7C CLR *6 , I NPUT + 20 , , IS MNEMONIC FIELD BLANK 

»»■» UNKcrtKtNUtU *•• 



05510NOEND AM COL. 2, 10, 



05450 
05790 



UP ON CARO 



BNE 
B7 



NOENO, , 
NOEND 



NO, GO TO UP CARD COLUMN 



07890NOGO TO FLFX i PHBERS 



07850 
07870 



BL 
BL 



NOGO 
NOGO 



08030NOMMS DAC 23, ERROR CUT-OFF 
07960 



WAT Y NOMMS 



12030NOPRD TFM WC +4»20+ 1 8 , GL LOOP 

11970D1TCD BNF NOPRD,PRSW 



8540N0SKIPBNF AGOGO-12, TDMTR+1 1,11 

08480 BNE NOSKIP 



14090NOTE DSAC 41, 



BUT NOTE PROGRAMMING ERRORS ABOVE 
137900UTN0TBTM HEDL I N , NOTE 



7820NCTUCHPUT TEMPC , , , ADMIN RUN, WRITE BACK UPDATABLES 
07680 BE NOTUCH 



08890NSUBL TFM 5UBAD.0 

08840 BNF NSUBL , NO AMTS 



0280ONTITA2DAC 36, TITLE OR ADMIN CARD MUST 8EGIN INPUT 
02660 W AT Y NTITA2 



08120NTITC DAC 19, TITLE CAKD M I S S I NG ' , , ACCORD I NG TO MCCOY 
07550 WATY NTITC 



00460NUA0 OS , • 



00780 


TF 


NUAD, 


■DKADJ-1 , 11 


007^0 


S 


NU AD- 


■2.WC + 8 


00800 


TF 


AD J F- , 


NUAO 


03440 


TFM 


NUAD, 


DCSW 


07300 


TFM 


NUAD, 


LSMNEM-7 


09490 


TFM 


NUAD, 


LABCHK 


12050 


TFM 


NUAD, 


EDIT 


14210 


TFM 


NUAD, 


. BEGND2 



08270NULAB AM CMC+ll,8,10 




08510 BL NULAB 



09200NUMAMTTF 00* lit TFN0+ 1 1 
09160 



BNZ NUMAMT 



ytsfth 



TECHNOLOGY 



09360NXT AM TBNR+11,1,10 

09140 
09310 



B7 NXT 
B7 NXT 



070100BDSA DSA DCS W , -DBS W , - AMTS W , -CD VS W 

06940 BTM LGC AND ,OBDSA 



703QOBDSA2DSA 0BS*,-DCSW,-AMTSW,-C0VSW,-LPSW,-SGSW2 
06990 BTM SETSWS , 0BDSA2 



071C00BJ DS 2 



05320SCAN 


TF 


OBJ 


»-l 


11. 


BRING IN CHAR DUE TO NECESSITY 


TO 


CF 


05340C1 


C 


OBJ 


»-» 


t 


MAIN COMPARE, WITH OVERFLOW 






05370 


BNF 


BB2 


OBJ 


t 


COLUMN VS. CONTROL UNEQUAL » OUT 


IF 


MONAMHIG 


05380 


CF 


OBJ 


f » 




CLEAR AMBIG FLAG 






05400 


C 


OBJ 


COL, 


11, 


AND COMPARE AGAIN 







071400BJAD DSA •-» 



06920 TF OBJAD , ADREG 

06930AMBA AM OBJAD, »-» 



07180OBMES DS .Aff'ES 



06960 



BTM ERPRNT.OBMES-l 



tt>« 



025300BSW DSC 1,0,, 



1111 OR (CUST) LAST FOUND 

06120OSWNLBDSA -DC S W , -OBS W, -C DVS W,- AM T S W 

06320 BNF UPCOL.OBSW,, OR A SIGN HAS NOT PRLCEEDED 

06340RSAMT TDM OBSW,0 

06670 TDM OBSW,0 

06750AMDSA2DSA -OBSW, -SGSW, - SG5W2 

070100BDSA DSA DC SW , -OB SW ,- AM TS W , -COVSW 

07030O8DSA2DSA OB SW , -DC S W , -AMTSW , -C VS W , - L PS W , -SGSW 2 



033400MES TF OUTPUT* 78 , CLR +78 

03310ERPRNTBD OMES,PSW,, 



STANDARD ROUTINE TO OUTPUT DIAGNOSTIC 



018400NESAIDC 6,iro001 



19d(l 
02020 



*-l ,0\hSAl 
»-l ,ONESAl 



140600CG BTM GET AO J , WC + *>« ?0 
14250 



B7 ()0G 



006900RGI NOP 



*»» UNREFERENCED *< 



02130ORIGDADDA ,0,C,0,0 



02050 TR WCORIGDA 



075900UTC SM TCMCi.1,2,10 



07490 BE OUTC 

07510 BE OUTC 

07610 BE OUTC 



076600UTC2 TOM LCSW,L,11 



07520 BLC OUTC?. 

08520 BLC 0UTC2 ,,, **«FILL IN»»* 



076700UTC3 CM T I TS AV + 2 , 4 144, 8 

07650 B7 UUTC3 



098300UTED SM TDEC+6,1,10 



09750 BE OUTEO 

09920 B7 OUTED 



10320OUTL INBD K41.PRSW 



10850 


BT 


OUTLIN 


OUTLIN- 


1 


10850 


BT 


OUT UN 


OUTLIN- 


1 


11070 


BT 


OUTL IN 


OUTLIN- 


1 


11070 


BT 


OUTLIN 


OUTLIN- 


1 


11430 


BT 


OUTL IN 


OUTLIN- 


1 


11430 


BT 


OUTLIN 


OUTLIN- 


1 


11600 


BT 


OUTLIN 


OUTLIN- 


1 


11600 


BT 


OUTL I N 


OUTLIN- 


1 


11920 


BT 


OUTLIN 


OUTLIN- 


1 


11920 


BT 


OUTLIN 


OUTLIN- 


1 


12620K0 


BT 


OUTL IN 


OUTLIN- 


1 


12620K0 


BT 


OUTLIN 


OUTLIN" 


1 


13520 


BT 


OUTL IN 


OUTLIN- 


1 


13520 


BT 


OUTL IN 


OUTLIN- 


1 


13560 


BT 


OUTL IN 


OUTLIN- 


1 


135-SO 


BT 


OUTLIN 


OUTLIN- 


1 



let 



13850 
13850 



BT 
BT 



OUTL IN, OUTLIN- 1 
OUTLIN, OUTLIN-1 



137900UTN0TBTM HfcO L IN, NOT E 

13740 BNE OUTNOT 



029C0DUTPUTDAC 40, ,, PERMANENT 



02930 


OSA 


OUTPUT 




02970 


DSA 


OUTPUT 




03170 


TR 


ouTpur-i , i NPur-i , , 


NO RMS ALLOWED ON CARD 


03 180 


BNK 


RMCRK.OUTPUT+160 




3 J400ME S 


TF 


OUTPUT+78,CLK+ m 




03 350 


TF 


OUTPUT+ I 58 ,CLR+ 73 




03360 


TR 


OUT PUT+7»ERPRNT-1 , 


1 1 


03370 


TFM 


•+35.UUTPUT+6 




03520 


TR 


OUTPUT+39, INPUT- I 




03580RBNR 


BNR 


•+20.0UTPUT+40+160 




03660 


TF 


0UTPUT+46,CLR+46, , 


THIS IS THE CHI 1 I NtiRARY EHPR^r 


03670 


TR 


0UTPUT+47,*-l3,l 1 




03770 


TR 


OUTPUT+39, INPliT-l 




06540 


BTM 


ERPRNT.OUTPUT+237, 


, BL AMK CARD 


10080 


TF 


OUTPUT+1 1? ,HEDLIN- 


1,11 


101 10K61 


TF 


0UTPUT+138,HLDLIN- 


1,11 


10150 


TR 


OUTPUT-1 .TITSAV-l 




10200 


TF 


0UTPUT+8.CLR+8 




10210 


TFM 


OUTPUF+158,14, 10 




10240K51 


TR 


OUTPUT+39, TI TSAV- 1 




1O260 


TF 


0UTPUT+48.CLR+8 




102H0 


I F 


0UTPUT + <>33,CLR + 78 




10?90CRi 


TF 


0UTPUT+158,CLR+78 




10300 


TF 


OUTPUT+78,CLR+78 




10400FLDL 


DSA 


OUTPUT+6 




10410FL02 


DSA 


OUTPUT+96 




10420FLD3 


OSA 


OUTPUT + 1 18 




10430FLD4 


DSA 


OUTPUT+138 




10440FL05 


DSA 


OUTPUT+1 58 




10590 


TF 


niJTPUT + 6,GLBNF + ll , 


11 


11840 


TF 


OUTPUT+6, ACTMES 




1 1980 


TFM 


FLO 1 ,0UTPUT+16 




11990 


TFM 


FL02,3UTPUT+U6 





12000 


TFM 


FLD3,0UTPUT*146 


12010 


TFM 


FLD4.0UTPUT+ I 76 


12020 


.TFM 


FLD5,OUTPUT+206 


13840 


TFM 


OUTPUT, 33, 10 


1 01 60 


TFM 


TR<bC+ II, OUTPUT 



07840OUTSWLC 



CRITl, PHBERS 

07730 



OUTSWL 



065600VBMESDAC 50, STUDENT PROGRAM EXCEEOS CORE CAPACITY AT THIS POIN, , 
06520OVERB BTM ERPRNT , OVBMES-1 

065800VBM2 DAC 43, STUDENT PROGRAM TERMINATED, JOB TERMINATED* 
06530 BTM ERPRNT ,0 VBM2- I 



065200VERB BTM ERPRNT, OVBMES-1 



04630 
05920 



BNL 
BNL 



OVERB 
OVERS 



010600VLAP TP OVMES+80, *-l 



01130 
01680 
01710 
01740 
01770 



BTM 
RTM 
BTM 
BTM 
BTM 



0VLAP,4171 ,8, 
nVLAP.4472,8 
0VLAP>,4200,8 
0VLAP.4471 ,8 
0VLAP,4300,8 



CHF.CKKY-STOPPY IF REAL OAO 



OllOOOVMES DAC 42, CORE OVERLAP, PROBLEM WITH WISAL PHASE ..' 



010600VLAP TF 0VMES+80,*-l 
01080 WAT Y OVMES 



01890PHASAITD SAVA1, 300,2) 



SAVE 300-349 

01910 CM PHASAl+6,SAVAH-50 

01920 BL PHASAl 

02260 TCD PHASAl 



03010PHBERSDC 3,0 



04470 


AM 


PHRERS 


,1 


10 




04690 


AM 


PHBERS 


, 1 


10 




05880 


AM 


PHBERS 


, 1 


10 




06060 


AM 


PHBERS 


, 1 


10 




06130 


AM 


PHRERS 


, 1 


10 




06650 


AM 


PHRERS 


, 1 


10 




06890 


AM 


PHRERS 


, 1 


10 




0^9 70 


AM 


PHRERS 


, 1 


10 




07H400UTSWLC 


cri n. 


PHBtRS 




07890NfK,0 


TD 


F LF X , PHBERS 




7000 


TO 


FLFX-2 


,PHRERS- 


1 


07910 


TD 


FLFX-4 


, PHBERS- 


2 


13730SEER 


CM 


PHBERS 


,0 


210 




13890 


TD 


FLFY, PHBERS 




13900 


TD 


FLFY-2 


, PHBER S- 


1 


13910 


ID 


f LFY-4 


.PHBfcRS- 


2 



O302OPHCERS0C 3,0 



07790 


AM 


PHCtRS.1,10 


07860 


C 


CRIT3,PHC£RS, , CHECK CUTOFF 


07920 


TD 


FLF2 , PHCERS 


07930 


TD 


FLF2-2 .PHCERS-l 


07940 


TD 


FLF2-4,PHCERS-2 


08590 


AM 


PHCERS,1,10 


08740 


AM 


PHCERS,1,10 


093C0 


AM 


PHCERS,l,lO 


13760 


CM 


SEER+6,PHCERS 


13920 


TD 


FLY, PHCERS 


139 30 


TO 


FLY-2 , PHCERS-l 


13940 


ID 


FLY-4, PHCCRS-2 



i 17 



058C0PLFN0 TOM SGSW,0,, 



PLUS OR + FOUND — THE 2 SIGN SWS ARE 



05700PLUS OVLC ,2 , 57, 2 , 53 , 2 , 64, 2 , 62 , 2 , 99, 5 , PLFND 
057?0SPLUS DVLC , 2 , 1 0, 2, 99 ,5 , PLFND 
07320 SF PLFND+11 



05700PLUS DVLC ,2»57, 2,53, 2,64, 2, 62, 2, 99, 5, PLFND 
05080 BTM SCAN, PLUS 



00980PRIN CALL L0AC361,, 



►CHANGE IF PROBLEM NOT DIM NO. 361*» 



02120 
02240 
02250 



B7 
TF 
87 



PRIN 

PRIN+25.GETN0+5 
PR I N 



02940PRINT DS 



PRINTER I/O CONSTANT 



03550 


PUT 


PRINT 


03690 


PUT 


PRINT 


10120 


PUT 


PRINT 


10270 


PUT 


PRINT 


10350K41 


PUT 


PRINT 



02980PR INT1DS 



036P0 



PUT PRINTl 



00370PRSW DC 



1,1,, DSC 1,0 IF NO PRINTER 



03450 BD 
03790A5TCD BNF 
07240 BD 



TRA4,PRSW 
TR A 5 , PRSW 
»+24, PRSW 



07990 BNF 
09970BLLIN BD 
10070HEDL INBD 
10140TITL0 BD 
103200UTLINBD 
11970D1TCD BNF 
13830ALLDONBD 



*+24, PRSW 
K71 , PRSW 
K61,PRSW,7 
K51 , PRSW 
K41 , PRSW 
NOPRD, PRSW 
*+44,PRSW 



04850PSEEK BNF BDL + 12, BDL + 1 1,11, SW DESIRED TO BE OFF, BRANCH IF ON 



04800 
04820BDL 



BNF PSEEK.BDL+ll,, 
BNF PSEEK-t-12,«-», , 



BRANCH IF THE S* IS DtSlRED TO BE OFF 
IS IT 



03160PSW DS 



03150RMCHK TDM PSW.O 

033 10ERPPNTBD OMES.PSW, 

03320 TDM PSW,1,U, 

07250 TDM PSW.1,11 



STANDARD ROUTINE TO OUTPUT DIAGNOSTI! 
PUNCH CARD COPY ONLY ONCE 



03040PUNCH DCA , OUTPUT 



09980 
10220 
10330 



PUT PUNCH 
PUT PUNCH 
PUT PUNCH 



00440PUTADJPUT WCCC.RBC 



0i2l0 


BT 


PUTADJ 


PUTADJ-1 






01210 


ST 


PUTADJ 


PUTADJ- I 






01300 


BT 


PUTADJ 


PUTADJ-1, , 


WRITE OUT I.S. 


,B.S. LABELS 


01300 


BT 


PUTADJ 


PUTADJ-1, , 


WRITE OUT I.S. 


,B.S. LABELS 


01380 


BT 


PUTADJ 


PUTADJ-l, , 


G.L. LABELS 


FOR PHASE B 


01380 


BT 


PUTADJ 


PUTADJ-1,, 


G.L. LABtLS 


FOR PHASE B 


01500 


BT 


PUTADJ 


PUTADJ-1 






01500 


BT 


PUTADJ 


PUTADJ-1 






01610 


BT 


PUTADJ 


PUTADJ-1 






01610 


BT 


PUTADJ 


PUTADJ-1 







17( 



03470 


BT 


PUT AO J 


PUTAD J- 


1 


03470 


BT 


PUTADJ 


PUTAD J- 


1 


03820 


BT 


PUT AD J 


PUT AD J- 


1 


03820 


BT 


PUTADJ 


PUTADJ- 


1 


07340 


BT 


PUTADJ 


PUTAD J- 


I 


07340 


BT 


PUTADJ 


PUTADJ- 


I 


09510 


BT 


PUTADJ 


PUTADJ- 


1 


09510 


BT 


PUTADJ 


PUTADJ- 


1 


12080 


AT 


PUTADJ 


PUTAUJ- 


1 


12080 


BT 


PUTADJ 


PUTADJ- 


1 


14240 


BT 


PUTADJ 


PUTADJ- 


1 


14240 


RT 


PUTADJ 


PUTADJ- 


1 



08500QCEND CM CCOL , INPUT + 142, , IF CARD OVER 



08460 


BL 


QCENO+24 


08490TDMTR 


B 


QCEND,*-*, 7 


08600 


B7 


QCEND 


08750 


B7 


OCEND 


09020 


B7 


QCEND 



00240R OS ,3*L, LENGTH OF A LEDGER ACCOUNT IN CONSTANT BLOCK 

»** UNREFERENCED *** 



05490RBACK C C I ERO , COL , 1 1 , SUPPRESS BLANKS 

04660 BD RBACK, RBSW 

05530 BNH RBACK,,, NO, GO TO BLANK-CHECK 



RBC *** JN DEFINED *»• 

00440PUI ADJPUT WCDD.RBC 



03580RBNR BNR *+2C,UUTPUT+40+160 

OinO NOP RflNR+52 



03540 
03780 



BE 
B7 



RBNR , , , 
R8NR 



DUNT PRINT NEXT TITLE 



05300SBSW DS 



044 )0 
04660 
05 2 70 
05540 



TDM RBSW, 

BD RBACK.RBSW 

TDM RBSW.O,, 

TDM RBSW, 1,11, 



YES, SET SW TO RETURN TO SSUPP 
YES i SL T SW TO RETURN TD RBACK 



03070READ TD I NPUl + I , I NPIJT + 160 i , RM TO &VEN LUCAflON 



03100 


B7 


READ 






04070 


B7 


READ 






04 160 


BNC2 


READ 






05200 


B7 


READ,,, 


AND GO TO 


READ A NEW CARD 


05550 


B7 


READ, , , 


AND GO 


TO READ NEw CARD 


07 310 


TFM 


WC +3*20+ 18, READ, , 


TITLE CARD 


IS IN 


07')f?0 . 


B7 


READ 






085 30 


R 7 


READ 







02010RETA1 TO 300,SAVA1,?, PUT 300-149 BACK 



01970 BO RETA1,*-1,, BE THIS A L I L OL MOD I 

02030 CM RETAl+6,349 

02040 BNH RETA1 



03150RMCHK TDM PSW.O 

03090 BNR RMCHK , INPUT+ I , , IF CARD ACTUALLY READ 

03280 B RMCHK+12 

03510 Df'RG RMCHK 



032C0RKERK TDM WHUCOM+1,9 

0312OWHOCOMN0P RMERK+32 



/ 7* 



03180 BNR RMERK.OUTPUT+160 



03110RMES DAC 33,0-2-8 ON CARD, REPLACED BY BLANK ' 

03210 TFM ERPRNT-l.RMES-l 

03610 TFM ERPRNT-l.RMES-1 



03740RMSC ANAM «*23,2,10 



03640 TFM RMSCAN+23, INPUT-2 

03650 B RMSCAN 



02170RNTY DTN , GF TNO + 2 

02210 GET RNTY 



05 740RPARENDVLC ,2,04, 2,99, 5, RPf ND 

05120 BTM SCAN.RPARF-N 



O6130RPDSA DSA -L P SW , - SGSW ,- SGS W? 

06190CLRSN BTM SF T S WS , R PO SA 



06150RPFND BNF UPCCL.LPSW 

05740RPARENDVLC , 2 , 04 , 2 , 99 , 5 , RPFND 



06340RSAMT TDM OBSW.O 



06290 BO RSAMT, AMTSW, , DID ' AMT * SHOW UP PREVIOUSLY 

06780 B7 RSAMT 



/ 74 



0Q250S 



LENGTH OF A LEDGER ACCOUNT IN UPDATABLE BLOCK 



06860 AM AMBA+11 , S, 10, 

106H0 AM EDGL1+6,S,10 

11140 SM EDAR 1+6, S-2»L » 10 

11230 AM EDAR1+6.S.10 

IW40 SM bDGLl + 6, S-2»L, 10 



S LIKE IN SHEEPSHEAD 



01850SAVAI OS ,19900 

1 890PHA S A 1 TO SAVA1,300,2, SAVE 300-349 

01910 CM . PHASA1+6, SAVAl+50 

02010RETA1 TD 300,SAVA1,2, PUT 300-349 RACK 



05320SCAN TF OBJ, •-1,11, BRING IN CHAR DUE TO NECESSITY TO CF 



05010 


BTM 


SCAN.CREDI T 






05020 


BTM 


SC AN , DEB I T 






05030 


BTM 


SCAN , AM T 






05040 


BTM 


SCAN , LPAREN 






05050 


BTM 


SCAN, VOUC 






05060 


EJTM 


SCAN, 01 SC 






05070 


BTM 


SCAN, CASH 






05080 


BTM 


SCAN, PLUS 






05090 


BTM' 


SCAN, MINUS 






05100 


BTM 


SCAN,SPLUS 






osuo 


BTM 


SCAN.SMINUS 






05120 


BTM 


SCAN, RPAREN 






05330 


AM 


SCAN-1,2, 10, 




UP IN CONTROL NOW 


05390 


AM 


SCAN-1,3, 10, 




UP TO AMBIG ADDRESS 


05410 


BE 


SCAN+12, , , 




EQUAL, UP TO NEXT CHAR 


05420 


TF 


SCAN- 1 , SCAN- 1 1 




r UNEQUAL , SET UP IN NEW WORD AND 


05420 


TF 


SCAN- 1 , SCAN- I i 


r 11 1 


r UNEQUAL, SET UP IN NEW WORD AND 


05440IFEND 


CM 


SCAN-1,99,610, 




IF END OF CONTROL WORD 


05460 


AM 


SCAN-1, 5, 10, 




YES, GO 


05470 


SF 


SCAN-1 , , , 




TO 


05480 


B7 


SCAN-1, ,6, 




ROUTINE, WITH C3L AT 


05500 


BL 


SCAN, , , 






05780 


TFM 


SCAN-1 ,CUST, , 




SNEAK BACK IN FOR CUSI 



064C0SEC2 BNF SEC3.SGSW2 

06360 BNR SEC2 , SGSW2 , , DETERMINE THE SIGN 

06370SEC3 BNF SPOS, SGSW ~ " " ~~ 

06400SEC2 BNF SEC3 , SGSW2 

13730SEER CM ' PHBfcKS.n, 2 10 — — — 

13690 B7 SEER 

13750 AM SEER+6,3,10 

13760 CM SEER+6, PHCERS 

13770 BNH SEER 

0259OSESW DSC 1,0,, ERROR IN SENTENCE 

061 10DC0SA2DSA -SESW 

06450 BD UPCOL.SESW,, ASSEMBLE NOTHING IF SENTENCE ERROR 

06660 TOM SESW, 1,10 

06980WHOP TDM SESW, 1,11 

049C0SETSWSTF TDM.;-* 6, » - 1 , 1 I , ROUTINE TO SET S WS~ A S~S P ECIf 1 1 D~~~ - 

04480 BTM SE TS WS , D S WNL ri 

04960 AM SETSWS-1,5,10 

04970 BNR SETSWS.SETSWS-l, 1 1 

04970 RNR SE TS WS , SE T SWS- I , 1 1 

05950 BTM SETSWS , 0CDSA2 

06080 BTM SETSWS, DCDSA2 

06190CLKSN BTM SETSWS, RPDSA 

06990 BTM SET S WS , UBDSA2 



02540SGSW OSC l,0 ( 



SIGN OF LOCAL AMT 



05750LPFND TO 

05760 TOM 

05800PLFN0 TDM 

05830MNFND TDM 

061 10RP0SA DSA 

06 160 BNF 

06300 RD 

063/GShC3 BNF 

06380 BNR 

06410 BNF 

06420 HNR 

Of 44 SPOS TDM 
06750AMC SA2DSA 



SGSW2 , SGSW , , 

SGSW,0 

SGSW.O, , 

SGSW, 1 ,11,, 

-LPSW,-SGSW,-SGSW2 

CLRSN, SGSW 

« + 36 , SGSW 

SPOS, SGSW 

SNEG, SGSW 

SNEG, SGSW 

SPOS , SGSW 

SGSW.O 

-OBSW, -SGSW, -SGSW? 



BOUNCING OUT OF SCAN WITH ( FOUND 



PLUS OR i 
KINUV OR 



FOUND — 
- FOUND 



THE 2 SIGN SWS ARE 
1 FOR MINUS, FLAGGt) 



02550SGSW2 DSC 1,0, 



SIGN OF PARENTHETICAL EXPRESSION 



05750LPFN") TD S3SW2, SGSW , , 

C6130RPGSA DSA -I p S W , -SGS W , - SGS W2 

06310 BD «+24,SGSW2,, 

06360 BNR SEC2,SGSW2,, 

064C0SEC2 BNF SEC3 , SGSW2 

06750AMDSA2DSA -OBS W , - SGS W, - SGS W2 

070300BDSA2DSA OB S W , -DC SW ,- AMTSW , -GOVS W , -L PS W , -S GSW2 



KOUNCING GUT OF SCAN wlTH t TDUNO 

IGNORE THE. WORD IF NNNN, (CUST), 
DETERMINE THE S I'GN 



09320SLMES DAC 40, SUBL EOGER USED ERRONEOUSLY, TR AN NO 777 < 



09260 
092/0 
09280 
09290 



TO 
TO 
TO 
BTM 



SLMtS+ 76.CNT 
SLMES+ 74,CNT-1 
SLME S+ 72 , CNT-2 
ERPRNr,SLMES-l 



09330SL0KC AM D0+6,*-» 



09250 BNR SLOKCSUBAD 



05730SMINUSDVLC , 2 , , 2 , 99 , 5 , MNI ND 

05110 BTM SCAN.SMINUS 



/77 



01570SN7 AM BNF2+ll,«-«,6 



01190 TF SM7«-ll,ADJF, t SAVE UPDATABLE BLOCK ADJUSTMENT 

01280 A HEDDSA«-6»5,SM7U1 , , WHOOPS— UPDATE HEADER OSA-S 

01290 A HFnn<;A + 7«S ; , ;M7 + i 1 . ; crip ij. D. a J*5L£ SLSCK 



06430SNEG SF INST 

06380 BNR SNEG.SGSW 

06410 BNF SNEGtSGSW 



091 10S0MAMTCM AMB <> ♦ 1 1 , «-» 

09030M0R YETBNR SOMAMT i AMB2 + 1 1 

09090 BO SOM AMT i AMB2+ 1 1 

09100 B7 SOMAMT+24 



05720SPLUS DVLC , 2 , 10 , 2 , 99, 5 , PLFNO 

05100 BTM SCAN,SPLUS 



06440SP0S TDM SGSW.u 



06370SEC3 BNF SPOS.SGSW 
06390 B7 SPOS 

06420 BNR SPOS,SGSW 



05150SSUPP C CZEPO.COL.ll, SPACE SUPPRESS, ENTERS HERE 



04670 B7 SSUPP 

05260 BNH SSUPP,,, NO, GO TO SUPPRESS SPACES 



//r 



14160STCR1 DC L,0 



13020KZ TFM »+23,ST0Rl 

13U0KW TFM *+23,STORl 

13200KT TF ST0R1,C3T 

13260KQ TF ST0R1,C2T 



14170STCR2 DC L,0 



13070KY TFM KZ+23.ST0R2 

13160KV TFM KW+23.ST0R2 

13220KS TF ST0R2 , C 3 T 

132B0KP TF ST0R2 , C2T 



14180STGR3 DC L,0 



13090KX 


TFM 


KZ+23, 


, ST0R3 


13180KU 


TFM 


KW+23, 


, STQR3 


13240KR 


TF 


ST0R3 i 


,C3T 


13300K0 


TF 


ST0R3, 


,C2T 


13600 


A 


C3T,ST0R3 



09340SUBAD DS ,« 

08870 TF SUBAD.TFNO+ll , 11 

08890NSUBL TFM SUBAD.O 

09250 BNR SLOKCSUBAD 



06070SWELL CF 



06020 B7 SWELL 

06040 BNF SWELL, TRSW 



01540S2 TF *+23,*-*,, SPECIAL RELOCATION 

01580UPS2 A S2+ll,ADJF,6 

n? 



01590 AM S2+ll,5,10 

01600 BNR S2,S2 + U,ll 

01600 BNR S2,S2+ll,ll 



O8940TBNR TD AMB2+ll,»-» 



08800 


TF 


TBNR+11, AGOGO+35, 11, AD OF START OF ROUTINE 


09000 


AM 


TBNR+11,5, 10 


09010 


BNR 


MORYET, TBNR+11, 11 


09220 


TF 


DO + 6, TBNR+11, 11 


09360NXT 


AM 


TBNR+11, 1,10 


09370 


B7 


TBNR 



14020TBCX DC 28,2300 

13880 TF TB0X-4,EDITA 



072A0TCDB TFM WC+ ' SI i BFG INB 



07360LBDSA OS A TCD6-L SMNE M+ 1 Q 7 
UM70 TCD TCDB 

07380ENDB DS .TCDB-l 



07600TCMC C C LR , I NPUT + 160 , 7 



075900UTC SM TCMC+11,2,10 
07620 AM TCMC+11,2,10 

07630 TDM TCMC+11,0,6 



09790TDED TD »-* » fc DC M +6 , 1 1 



09730 


TFM 


TUEU+6 


, ED I TA-8 


09760 


SM 


TDED+6 


,2,10 


09770 


C 


C23D1 , 


TDED+6, 11 


09830OUTE0 


SM 


TDED+6 


,1,10 


09840 


SF* 


TDED+6 


,,6 



09870LSTED SM 
09880 C 
09900 TD 
09910 CF 



TDED + 6, 2 , 10 
C23D1, TDED+6, 11 
TDED+6, bOCM+6, 611 
TDED+6 , , 6 



04950TDMJ TDM •-•,1,11 

04900SETSWSTF TD M J + 6 » *- 1 , 1 1 , ROUTINE TO SET $WS AS SPECIFIED 



04910 BNF TDM J , TDM J+6 

04910 BNF TDM J , TDM J+6 

04920 CF TDMJ+6 

04930 TDM TDMJ+6, 0,6 

04940 B7 TDMJ+12 



0849QT0N<TR B 



(jCENb,«-*,7 



08190 TF 
08200 A 
08410 AM 
08540 NO SKIP BNF 
08630 TDM 



TOf'TR+ll, TOSWAD 
TDMTR+ 1 1 ,CNT 
TDMTR+11 , 1,10 
AGOGO-12, TDMTR+ll , 11 
TDMTR+ 11,1,611 



05200TDNUM TD ALPh AN-6 , COL ,11, NO 



05000 TFM TDNUM+6, ALPHAN-6, , THIS AINT NO NUMERIC 

05230 AM TDNUM + 6 , 2 » 10, NO, THEN tVEK 

06810 TFM TONUM+6, ALPHAM-6 



06010TOX TDM •+ IC , I 

04600 TDM TDX+10,0 



08130TEMPC DO » WC + 20 , » » A 

07820NQTUCHPUT TEMPC,,, AOMIN RUN, 1[ BACK UPUATAULES 

/If 



1 1220TF ARLBTF »-• , ARBNF+1 I , I I 



11150ARL00PTF TFARLB+6, FLD1 
11160 AM TFARI R + 6. 8.10 

11180 AM TFARlB+6,2,10 



10670TFLABDTF •-» , SLBNF* I 1 , 1 1 



10620 
10640 



TF 
AM 



TFLABD+6, FLD1 
TFLABD+6, 2, 10 



06820TFLB TF *+23,»-» 



06790NNNN 
068S0 
06870 
06870 



TF 
AM 
BNR 
BNR 



TFLB+ 1 1 1 HEDDS3 
TFLB+11,5,10 
TFLB » TFL B+ 1 1 , 1 1 
TFLB,TFLB+ll,ll 



12390TFLB I STF 



12320 TF 

12330 SM 

12370TFMD2 TFM 

12380 A 



TFLBIS+11, ISBNF+ll 
TFLBIS+11,2,10 
TFLBIS+6,*-» 
rFLBIS«-6, I SBNF+11 , 11 



12370TFMD2 TFM TFL B I S +6 , »-» 



12230 
122*0 



TF TFMD2+11.FLDI 
AM TFMD2+11.20, 10 



08810TFN0 TF NO APT S , »-* , , 



PROCESS TRANSACTION HEADER 



08640AG-0G0 TF 



TFNO+1 , 



FILL IN FROM HEDDSA+8*5 



08820 


AM 


TFNO+11,3, 10 


08830 


TF 


LITS,TFN0+U,11 


08860 


AM 


TFNO+ll, 5, 10 


08870 


TF 


SURAO, TFNO+ll, 11 


09200 NUMAMTTF 


DO+11, TFNO+ll 



10450TIMES OSAC 5, TITLE, 



11020 TF »-l8,TIMES,6 

11870 TF *-», TIMES 

12190 OORG TIMES-1 



027C0TITLA2DSAC 5, f II Lfc 



INPUT+8, TI TLA2 



04270TITLB DSAC 5,TITLc 



03970LABCHKC 



T I TLB , INPUT+8 



04090T ITLBFRCTY 



03980 
04000 



HE 
BE 



TI TLBF 
T I TL BE 



08100TITLC DSAC TITLE 



TI TLC, INPUT+8 



002<50TITLESDS 



10920 BT HEDLIN, TITLES 

11630 BT HEDLIN, TITLES 

11670 BT HEDLIN, TITLES+2»5 



11770 BT HEDL I Nt TITLES 

11810 BT HEDL IN, T I TLES+5 

13390 3T HEDLIN, TITLES 

13430 BT HEDLIN, TITLES+3#5 



10140TITL0 80 K51.PRSW 



11610 


BT 


TITLO, 


TITLO- 


1 


11610 


BT 


TITLO, 


TITLO- 


1 


11750 


BT 


TITLO, 


TITLO- 


1 


11750 


BT 


TITLO, 


TITLO- 


1 


13370KM 


BT 


TITLO, 


TITLO- 


I 


133 70KM 


BT 


TITLO, 


TITLO- 


1 


13460KL 


3T 


TITLO, 


TITLO- 


I 


13460KL 


BT 


TITLO, 


TI TLO- 


1 



02480TITSAVDAC 40, ,,SAVE TITLE 



07230 


TR 


TITSAV- 


1, 


INPUT-i 


07260 


BTM 


ERPRNT, 


TITSAV-1 


076 700UTC3 


CM 


TITSAV+2, 


4144,8 


10150 


TR 


OUTPUT- 


1, 


TITSAV-1 


1G240K51 


TR 


OUTPUT+39 


, TITSAV-l 



08080TGSW ADDS A «-• 



7690 


TF 


CNTBD+U , TQSWAD 


08190 


TF 


TDMTR+ll,TOSWAD 


09410BEGINCTF 


T0SWA0,HEQ0SA+6*5 


09420 


SM 


TOSWAO.L , 10 


094 30 


S 


T0SWA0,HEDDSA+9»5 



!0560TOTARSnSAC LI , TOTALS $, 
11510 



TF *-», TOTARS 



10480TCTCR DSAC 10, TOTAL CR 



11050 
11900 



TF 
TF 



FL04,T0TCR,6 
FLD4, TOTCR ,6 



10490TOTDB DSAC 10, TOTAL Df! 



11040 
11890 



TF 
TF 



FLf)3,T0TD8,6 
FL03,T0TDR,6 



01780TRAI TRA 



BACK TO DO PHASE A2 
*♦» UNREFERENCED »»» 



02720TRA2 SM CA2+ll,2,10 



02620 
02640 



BE 
BE 



TRA? 
TRA 2 



03480TRA4 TRA 



TRA4.PRSW 



0383OTRA5 TRA 



03790A5TCD BNF TRA5, PRSW 



Q4570TRLAB TR LSMNEM+ 7, LSMNEM + 2 1 , 2 

0449 01. AS WOK TF CL AB+6 , TRLAB+6 

04560 S TRLAB+11,14S 

04620 C IMSAD, TRLAB+6 

05910 C I NS AD ( TRLAB+6 

05930 TF WC+18, TRLAB+6 



06500 C INSAD.TRLAB+6 



10160TRSC BNR »-12,*-* 



10160 
10170 



TFM TRSC+11, INPUT 
AM TRSC+11,2, 10 



04780TRSW OS 



04450 


BNF 


LASWOK.TRSW, , 


NOW TEST IF STATUS SWS ARE ALL 


04 770LGCANDTDM 


TRSW.O, , 


RESET OUTPUT SW TO OK 


04830 


TDM 


TRSW, 1, 11 , 


NO, SET OUTPUT SW TO NOT OK 


05860 


BNF 


»+36, TRSW, , 


FOUND, GET OUT 


06040 


BNF 


SWELL, TRSW 




06610 


TO 


HOSW,TR$W 




06630 


BNF 


♦♦48, TRSW 




06950 


BNF 


•♦48, TRSW 





IN ORDER 



08610TW0MESDAC 27 , TRANSACT ION CODED TWICE, NO 

08580 BTM ERPRNT , TWOME S- 1 



08620TW0ME2DAC 5, 777' 



08550 TO TW0ME2+2.CNT-2 

08560 TD TW0ME2+4.CNT-1 

08570 TD TW0ME2+6,CNT 



09390TW0SC DC 6,200002 



«** UNREFERENCED *«» 



05240UPCOL AM COL, 2, 10, 



ONWARD, LIKE UP ON CARD 



05140 


BE 


UPCOL, , , 


05160 


BNL 


UPCOL 


05300RBSW 


DS 


.UPCOL+9 


C5840 


B7 


UPCOL 


06100 


B7 


UPCOL 


06150RPFND 


BNF 


UPCOL, LPSW 


06200 


B7 


UPCOL 


06320 


FiNF 


U^COL ,OBSW 


06450 


RD 


UPCOL , Sh SW 


06510 


BL 


UPCOL 


06710 


B7 


UPCOL 


07000 


B7 


UPCOL 



NO, GO TO MOVE IT 



OR A SIGN HAS NOT PROCEEDED 
ASSEMBLE NOTHING IF SENTENCE ERROR 



O67C0UPCOL6TDM CDVSW,0 



06590AMFND 8D 
06720HOSW DS 



UPC0L6.CDVSW 
.UPCOL6+10 



01580UPS2 A S2+il,A0JF,6 

01550BNF2 BNF UP S2 , *-* , , 



TRANSACTIONS HAVIMG SUBLEDGER HAVE FLA:: 



06270VCFND TDM INS T , 0, ■ 



VOUC FOUND 

05670V0UC DVLC ,2, 65, 2, 56, 2, 64, 2, 43, 2, 9 9, 5, VCFND 
06230 B7 VCFND+12 

06260 B7 VCFND+12 



00890VKADJ TF «♦ 1 H , •- 1 , 1 1 



01200 BTM VKADJ, HEDDSA+5, , 

01350 BTM VKADJ, HED0SA+5»5 

01420 BTM VKADJ ,HEDDSA+5»5 , 

01450 BTM VKADJ »HEDDSA+5»5 



RELOCATE B.S.,I.S. LABELS TABLE 
UNRELOCATE VECTORS 



05670VOUC DVLC ,2, 65, 2, 56, 2, 64, 2, 4 3, 2, 99, 5, VCFND 
05050 BTM SCAN, VOUC 



in 



00320WC 



DS 



.EWC-19 



00450 


TFM 


WC*13,»-» 




00480DDATR 


TR 


WC.WCt 2 




00480DDATR 


TR 


WC.WC2 




00490 


A 


WC+5,WC+8 




00490 


A 


WC+5.WC+8 




00510WCDD 


00 


,WC,,,A, WISAL 


WILL UPDATE TO 


00720 


TF 


WC+10.DKADJ-1, 11 




00740 


s 


WC+lOtOKADJ-l, 11 




00750 


TF 


WC+13,DKADJ-1 , 11 




00760 


AM 


WC+8,1,L0, LENGTH OF BLOCK UP TO 


00790 


s 


NUAD-2,WC+8 




008 10 


s 


AOJF , WC+13 




01270 


DSA 


HEOPSB+5, HtDDSB,WC+20+13 


01440 


DSA 


HEDDSB+3»5,HEDDSB+5 


,WC+20+ 13 


01520 


DSA 


HEDDSB+5«5,HED0SB+4»5,WC+20tl3 


01660 


CM 


WC+2»20+13,ENDD2 




01690 


CM 


WC+-3»20*13,ENI)B 




01720 


CM 


WC+4*20+l3,EN0Dl 




01750 


CM 


WC+5*20+l3,ENDC 




02050 


TR 


WCOKIGDA 




02060 


TD 


WC,4?2,, GET LOCATION OF WORK 


02070 


TF 


WC+3,425,, MONITOR COULD 00 THIS 


034 30 A4TCD 


TFM 


WC+ 1 3.DCSW 




03460 


TF 


WC+8,A4DSA-2 




03810 


TF 


WC+8, A5DSA-2 




04170 


BTM 


GETADJ, WC+6*20 




04240 


BTM 


GETADJ, WC+7«20, 711, 


Rfc-CALL PHASE B 


05930 


TF 


WC+18, TRLAB+6 




0594 


AM 


WC+18,7, 10 




05960 


BTM 


GETADJ, WC+8»20, 71 1 , 


LINK TO PHASE C 


07270 


BTM 


GETADJ, WC+3«20, 711 




07280TCDB 


TFM 


WC+ 18, BEGINS 




07290 


TFM 


WC* I 3 » LSKNEM- 7 




7 3 10 


TFM 


WC+3»20*18,READ, , 


TITLE CARD IS IN 


07330 


TF 


WC+8.LBDSA-2 




07880 


BTM 


GETADJ, WC+9*20, 711 , 


LINK TO 01 


08010 


BTM 


GETADJ, WC+6«20 




08020 


BTM 


GETADJ, WC+7*20, 711, 


LINK TO B 


061 30TEHPC 


00 


,WC+20, , , A 




08650 


TF 


•+23.WC+18,, 


AO OF START OF S 


09440 


BTM 


GETADJ, WC+20 





in 



09^50 


BTM 


GETADJ, WC«-5»20, 


711 




09460CTC0 


TFM 


WC*5*20*18,LABCHK, , 


BEGIN 


094 70 


TFM 


WC+18,BEGINC 






09480 


TFM 


WC + I 3 » L ABCHK 






09500 


IF 


WC+8.CL0SA-2 






1 1690 


BTM 


GETADJ, WCM0*20 


,711 




1 1940 


BTM 


GETADJ , WC+4»20 , 


71 I 




12030N0PRD 


TFM 


WC+4*20+l8,GLL00P 




12040 


TFM 


WC+18,GL0UT 






12060 


TFM 


WC+13.EDIT 






12070 


TF 


WC+8,D10SA-2 






1220OBLGND2BTM 


GETADJ, WC+2«20 






13990 


BTM 


GETADJ ,WC+6»20 






14000 


BTM 


GETADJ, WC+7»20, 


711, 


LINK TO B 


1406000G 


BTM 


GETADJ , WC+6»20 






14070 


BTM 


GETADJ, WC+7*20, 


711 




14190|)2rCD 


TFM 


WC+1B,BEGND2 






14200 


TFM 


WC+13,BEGND2 






14220 


TF 


WC«-8,02!)SA-2 







C WITH CARD ALREADY *EAD 



00510WC0D DD ,WC.,,,A, WISAL WILL UPDATE TO WORK CYLINDERS ITSELF 

00440PUT ADJPUf WCDO.RBC 



0211QWHATP BD GE TNO , ML PKS W , , DIGIT IN POS. 2 OF SECTOR F0i< YES 

*•» UNREFERENCED **« 



03120WHGCOMNOP RMERK ♦ 32 



03200RMFRK 


TOM 


WHOCOM+1 ,9 


03230 


TDM 


HHOCOM+l , 1 


03420 


B7 


WHOCOM 


03600 


TDM 


WHOCOM+13,9 


03630 


TOM 


WHOCOM+ 1 3,1 


03730 


B7 


WHOCOM 



069H0WHCP TDM SES*,i,il 

06'iOO B7 WHOP Iff 



06280WISGM DGM » 



• «* UNREFFRFNr.FD 



i 



01C50WLRC OAC 41.WISAL VS. PROBLEM FIELD LENGTH NON-MATCH' 
01030 WATY WLRC 



02160WPRB OAC 33, ENTER 4-DIGIT DIM NO. OF PROBLEM • 
02190 WATY WPRB 



04080XREFB DSAC 4,XREF 

04010 C XREFBt INPUT+6 



O809OXREFC DSAC 4,X3Eh 

07460 C XREFC, INPUT+6 



0707014S DC 7,1400014 

04560 S TRl. AB+ll , 14$ 



BEGIN 



( 

**XEQ 
WISflL 


n 


r 


PHPSR1 1 

LOADER TRR'S TD 
PHflSfll 




r 


2 

SA\/E POSITIONS 300 
TO 350 






3 

PUT DIGIT 1 IN 300, 
AND -12 IN 305-309 
AND 3^5-349 






ADD ZERO 


TO ZERO 



10 



TURN ON INDIRECT 
ADDRESSING 



WHATP 




12 



TURN OFF INDEXING 



RETA1 13 
RESTORE 300 TO 350 




'ENTER 4-DIGIT DIM 
NO. OF PROBLEM o 




READ DIM NUMBER 
INTD THE CALL LOAD 
AT PRIN 









m 


SET UP 


WORK. 




CYLINDER 


D 


.C.F. 


AT 


UC 










60 TO OVLAP WITH 
PHASE NAME Al 



112 



SAVE RELDRCT1DN 
FACTOR RT SM7+11 



TC2 



6D TD VKRDJ FDR 
TABLE IN G.L. 
LABELS BLOCK. 



OVLAP 



103 



MOVE PHASE NAME 
INTO MESSAGE 



IN 

SO TD VRADJ FOR 
TABLE IN I.S., 
B.S. LABELS 
BLOCK. 



123; 



GO TD PUTADJ FDR 

6.L. LABELS 
BLOCK. FDR PHASE 
B 



10M_ 



'CORE OVERLAP* 
PROBLEM WITH WISAL 
PHASE 



EXIT 



60 TD PUTADJ FDR 
UPDRTABLE BLOCK. 



12«+ 

SAVE ADJUSTED START 
DF G.L. LABELS AT 
HEDDSB 



6D TO DK.ADJ FOR 
B.S., I.S. 
LABELS BLOCK. 



TO 120 



1 



125 



REVERSE SIGN OF 
ADJF 



TD 200 



/ USE UKRDJ TD 
/ UNRELOCRTE TABLE 
< IN G.L. LABELS 
\ BLOCK. 



GD TD DK.RDJ FDR 

G.L. RND fl.R. 
LABELS FDR PHASE 
Dl USE 



GO TD VKADJ TD 
RERELDCRTE TABLE 
DF G.L. LABEL 
ADS 



210 

HAS 

TRANSACTION Ar 
.ADDRESS RT POINTER 
N\A CUSTOMER 7 
D 

^YES 



211 

UP THE CUSTOMER 
ADDRESS IN TRANS BY 
FACTOR RT SM7+11 



UPS2 


212 


UP THE RDDRESS RT 


POINTER 


BY ADJF 




c 




GD TD DK.ADJ FDR 
THE TRRNSACTIDNS 
BLOCK 





7 




205 


MDVE START DF 


TRANSACTION ADDRESS 


TABLE TD 


POINTER 



TD 210 
S2 




GD TD PUTADJ FDR 
TRANSACTION 
BLOCK 



TO 220 



TRR BACK. TO DO 
PHASE A2 AND 
INTERPHASES 



PHASfl2 



f?3 



300 



SUBROUTINES 



TUTflOJ 
WRITE D.C.F. AT 



320 



UP D.C.F. SAVE 
POINTER 20 




1 


r 


DRADJ 302 

NOVfE IN PRESENT 
UPPER UNIT OF 
BLOCK TO MC+10 


1 


f ' 


303 

SUBTRACT PRESENT 
LD-CORE FROM WC+10 


1 




30H 

NDUE PRESENT 
LO-CDRE TO WC+13 




r 


305 

UP MC+8 BV 1 CTO 
NEXT HUNDRED3 



VKADJ 



311 



HOVE IN START OF 
AOORESS UECTOR 
TABLE 



321 

MOYE D.C.F. AT MC 
TO TRANSFER D.C.F. 
AREA 



UfclOOP 312 

ADO RELOCATION 
FACTOR RT ADJF 



322 



UP SECTOR AD AT 
WC+5 BY LENGTH OF 
THIS BLOCK 



RETURN 



313 

UP POINTER TO NEXT 
ENTRY IN TABLE 




RETURN 



TO »fOO 



c 



untie* tvrciiTTnii 
HDV/t EXECUTION 

UPPER LIMIT TO NUAD 

AND ADJF 


1 


f 


HOI 

SUBTRACT SECTOR 
COUNT AT WC+8 FROM 
NUAD-2 


- 1 


r 


SUBTRACT 
UPPER LI 
AD 


402 

PRESENT 
1IT FROM 
IF 



C '. 

7 

403 

AOJF IS NOW 
RELOCATION FACTOR 
OF THIS BLOCK 



RETURN 



>H«SA2 

LOADER TCD»S TD 
SETB2 



1 

GETA2 


1 


/ 6ET ft CARD 







AHTCD 10 

SET START OF I/O 
SECTION TO DCSM 
CTFB TO MC+133 





r TRA«4 



60 TO PUTADJ FOR 
CARD OUTPUT 
BLOCK 



TRA 



TRA2 



13 



SCAN CARD* PLACE * 
AFTER LAST 
CHARACTER 



i 



LOADER TCD'S TO 
A5TCD AFTER 
OVERLAYING 

CARD-D ROUTINE 



•TITLE OR ADR IN 
CARD NUST BEGIN 
INPUT' 



TRA 



HALT, OPERATOR 
CORRECTS AND 
STARTS 



TO 1 
GETA2 



LOADER TCD«S TO 
A4TCD 



TO 10 
A4TCD 




TO 100 



l<T6 



DITCD 



SD TO PUTADJ FDR 
PRINTER OUTPUT 
BLOCK. 



LOADER TCD'S TO 

CTCD AFTER 
LOADING PHASE C 



TRA5 



TRA 



LOADER TCD'S TO 

TCDB AFTER 
LOADING PHASE B 



1 




TCDC 1 1 1 

SET EXECUTION AD OF 
TRANS-UPDATABLES 
BLOCK. AS LABCHK. 






112 

SET C EXEC . AD AS 
BEG INC j ORIGIN AS 
LABCHK. 




121 

RESET FIELD-SPLIT 
ADS AS FOR PRINTER 



NOPRD 



122 



SET EXECUTION AD OF 
B.L.i A.R. LABELS 
BLOCK. AS GLLOOP 



TCDB 



103 



SET EXECUTION AD OF 
G.L. LABELS BLOCK. 
AS READ 



GO TO PUTADJ FOR 
PHASE C 



123 

SET Dl EXEC. AD AS 
GLOUT> ORIGIN AS 
EDIT 



1 

GO TO PUTADJ FDR 
PHASE B 



V 



12HV 



TRA 



GO TO PUTADJ FDR 
PHASE Dl 



TRA" 



LOADER TCD'A TD 

DITCD AFTER 
LOADING PHASE Dl 



TRA 



TO 110 



TO 120 
DITCD 



TO 200 



LOADER DEND'S TD 

D2TCD AFTER 
LOAD INC PHASE 02 



D2TCD 201 

SET 02 EXEC. AO AND 
ORIGIN AS BEGND2 



* 

202 

TURN OFF LAST CARD 
SH 



50 TO PUTADJ FDR 
PHASE 02 



r ooe 

GO TO GETADJ TO 
READ OUTPUT 
BLOCK 



GO TO GETADJ TO 
READ AND LINK, TO 
PHASE 8 



BEGINS 



c 



i 







300 



ROUTINE GETRO J 



GETRDJ 




CFDD 



302 



CLEAR FLA6 ON DD+1* 
NO LINK. 



CFDD 12 



303 



HOVE BTN ADDRESS 
CDF D.C.F.) TO 
DD+6 



RERD DISK THRU 
HON I TOR > ODES 
NOT RETURN IF 
LINK 



1 



305 



BRANCH BACK 



RETURN 



400 



ROUTINE READ 



KILL * 



TO HO 4 
RNCHK 



READ 



HOI 



PUT * IN EUEN 
LOCATION INPUT+1 



mo 



WL jiiiv' 



_J 402 

READ A CARD. PRINT 
OUT IF PRINTER 




RMCHK. / X 404 




TO 410 



BEGINS 



TYPE CUT TITLE 
CARD 



A 



SAVE TITLE CflRD AT 
TITSAU 




TO 3 
LABCHK 



READ AND LINK TD 
G.L. LABELS 
BLOCK > GOES TD 
READ 




«SH 2 OFF TO 
CONTINUE AND 
IGNORE* QN TO 
ACCEPT* 



HALT, OPERATOR 
TAKES ACTIDN AND 
STARTS 



YES 



TO 103 
ISLAB 




TO ERPRNT* 
'PREVIOUS 
ROUTINE NOT 
COMPLETED' 



TD 601 





TO 100 



3L0JL 



READ IN OUTPUT 
BLOCK ANEW 





f 


101 

SCAN CARD, PLACE * 
RFTER LAST 
CHARACTER 


1 






60 TD GETRDJ TO 
RE-CALL PHASE B 



TO 




BEG I NB 




I SLAB 


103 


COLLECT* 




LEFT-JUSTIFY < 


AND 


SQUASH SPACES 


OUT 


OF LBAEL 





TD ERPRNT, 
'PREVIOUS 
ROUTINE NOT 
COMPLETED 




112 

UP PHASE B ERROR 
COUNT BY l> SET SMS 
IN DRCER 




LASWDR 113 

INITIALIZE FOR 
DUPLICATE SCAN 



CLAB 



120 

PUT THIS LABEL INTO 
PREVIOUS LABEL AREA 






FINLZE 121 

PUT END OF ROUTINE 
CODE RT END OF 
PREV. GENERATED 
CODE 






122 

SET NEW ROUTINE SM> 
UP CODE POINTER 








DDES 
LABEL 
DUPLICATE ANY 
'REVIOUS LABEL, 
JN LABEL 



TO 723 
OUERB 



DUPLRB 

TO ERPRNTj> 'LABEL 
DUPLICATES 
1> \ PREVIDUS LABEL 



■ \ 


f ■ 




105 


RESET IN 


-SCAN SW 


CRB 





TRLAB 



115 



PUT PREVIOUS LABEL 
AT END DF TABLE 
WITH ADDRESS 




12^ 

ADD 1 TO PHASE B 
ERRORS, SO TO CUT 
OFF CODE GENERATED 



TO 110 



TO 120 



TD 121 
FINLZE 



ao3 





200 


^puf rnnF pcitntpp 

JMVL LUliL ruiniCn 

RT AD C START DF 
ROUTINE ADDRESS) 






CDNT 


201 


SET CDL POINTER TO 
COLUMN 12 







6D TD SCAN FDR 
•CREDIT* 



GD TO SCAN FOR 
'PLUS'* 'MINUS' 
'-», '3* 



SO TD SCAN FOR 
'DEBIT' 





SO TD SCAN FDR 
»AMT'> 'C» A 

'UOUC, 'DISC i 
'CASH' 



202 



RBACK. 



IN-SCAN 
S14 ON ? 



ND 




SCAN 



222 



SCAN ROUTINE* ENTRY 
POINT FROM MAINLINE 
LSCRNS 



SSUPP 



203 



BLANK. AT 
CDL ? 



NO 



T U 
P 
C 
3 D 
L 
4 



IFNUM 





TO 312 
RflTN 




LSCANS 



2H 



SRYE COLUMN POINTER 
AT CMH2+11 





22* 


SET IN-SCAN 


SWITCH 


TO DN 





TD 11 
NEWCRD 



215 



RESET NUMERICS 
POINTER TO FIRST 



225 



MOVE IN CONTROL 
CHAR FROM BTM 
ADDRESS TO D0J 



TD 210 



TD 320 



20H 




303 

UP NUMERICS PD INTER 



313 

INITIALIZE ADDRESS 
IN UPDATAPLES> 
RESET NUMERICS 
PNTR. 



323 

CLEAR FLAG ON OBJ* 
UP PTM ADDRESS 3 TO 
AM5IG ADDRESS 




TO 310 TO 313 TO HOO 



DOWN CDL POINTER 2 




1 





W2 


UP BTM 


ADDRESS 5> 


BRRNCH 


TD MATCH 


RD0RE5S 


IN CONTROL 



TD SOO 



MATCH 

c 




206 



MATCH 



500 



/ MATCH FOUND > \ 
^FOLLOWING DECISIONS^ 
NOT REALLY IN PROG.. 



1 




501 

BUT SUMMARIZE THE 
SCAN PROCESS 








CAFND 




520 


SET DP 


CODE 


DIGIT 




TD 





1 




YES 521 



TO 622 
RPFND 




LPFNO 



512 



PUSH SIGN SWITCH TD 
EXTERNAL SIGN 
SWITCH 




PLFND 



513 



SET SIGN SWITCH TD 
+ FOUND 



TO 304 
UPCOL 




MNFND 



514 



SET SIGN SWITCH TD 
- FOUND 



TD 30H 
UPCOL 




515 

SET SIGN SW TO NO 
SIGN* LEFT PAREN SW 
ON 









1 




525 


' CCUST3 ' 


FOUND 



TO 600 



TD 900 
CSFND 





600 


SET 


SCAN BTN 


ADDRESS 


FDR »CUST)« 


CONTROL 


> SNEAR BACK. 



CRFND 



SET INDEX TO LENGTH 
OF HI SAL FIELD 



TD 213 
NOEND 





601 


UP PHASE 
BY 


B ERRORS 
1 




f 


G0T036 


602 


PUT END OF ROUTINE 
INDICATION IN CODE 
AREA; UP POINTER 








620 






? 


604 

SET SWS FOR END OF 
B 




1 



' 1 


1 


612 

SET NEW ROUTINE SW 
OFF 




f 


SMELL 613 

SET SWS FDR 'DEBIT 
OR 'CREDIT* FOUND 


i 


L 



621 

UP PHASE B ERRORS 1 



TD 613 
SWELL 



RPFND 



T U 
P 

c 

3 D 
L 
4 



YES 614 




GO TD GETADJ TD 
READ AND LINR TD 
PHASE C 



BEG INC 



TO ERPRNT* 
'IMPROPER 
STATEMENT* 



TO 621 





TO 700 
CLRSN 



X08 



CLRSN 



7Q0 



SET SWS FDR END OF 
SENTENCE 



TD 3CW 
UPCDL 



DSFND 



701 



SET DP CDDE DIGIT 
TD * 



VCFNO 



710 



SET DP CODE DIBIT 
TD GROUP MARK 



TD 702 
UCF12 



VCF36 



711 



SET MNEMONIC-FOUND 
SWITCH 




721 



MOVE DP CDDE DIGIT 
AND ADDRESS TD CDDE 
POINTER 




i 



RSflMT 


712 


RESET OBJECT 
SWITCH; AMOUNT 
SWITCH 








713 


TARE ALGEBRAIC 
PRODUCT DF 5IGN> 
EXTERNAL SIGN 








7m 


SET FLAG DN OP CODE 
DIGIT IF NE6ATIUE 
PRODUCT 






TD 30H 
UPCDL 



802 

TRICE LOGICAL AND OF 
NO RMT> NO OBCR; 
AND PREU RESULT 



AMTN 



812 



TRANSMIT THE 
NUMERIC AT CDL TO 
OP CODE DISIT 



AHB^B 



822 



SET SWS FOR OBJECT 
FOUND 




CSFND 



900 



©■ 



SET UPDRTRBIES 
RODRESS TD ZERO 



I 

RM8R12 901 

MOUE OBCR INDEX TO 
OBJECT ADDRESS 



RMBR 



± 



902 



ROD UPDRTRBLES 
RDDRESS TD OBJECT 
ADDRESS 




I 

90H 

TO ERPRNT, / 
"IMPROPER / 
STATEMENT / 




TO 321 
UMDP 



BEGINC 

MOVE ADDR DP FIRST 
UPDATABLE RCCT 
FIELD TD TOSWAD 




r 


1 

DDMN TDSWflD BY 
LENGTH OF FIELD TO 
LAST TRflN CODED SW 






DOWN TDSWflD BY ND . 
DF TRANSACTIONS TD 
TRflN °ZERD° SW 







GO TO GETflDJ TD 
READ UPDflTflBLE 
BLOCK. 



GD TD GETAD4 TD 
READ 
TRflNSflCTIDNS 
BLDCK. AND LINK. 




OUTC 



20 



SCAN CARDi PLACE * 
AFTER LAST 
CHARACTER 



TD 15 
DUTC3 




21 

INITIALIZE IN 
TRANS. CODED SWS TD 
TRANS. 1 




"TITLE CARD 
HISSING' 



1 




HALT, GD TD 
READ DN START 



TO S 
LABCHR 




DUTC2 



SET INTERNAL LAST 
CARD SWITCH DN 



0UTC3 










23 


MOVE TRANS. ND. TD 


MESSAGE > UP PHASE C 


ERRORS BY 1 


1 





c 




TD ERPRNT, 'NO 
CODE PROVIDED 
FDR TRANS . . .» 




LPBD 25 

UP SWITCHES POINTER 
1 > TRANS . ND . UP 1 



TD icq 



\0 



HI 




GET FROM XREF CARD 

NUMBER OF FIRST 
TRANSACTION CCNT* 



DUT5WL 



101 



EITHER 



PHASE B OR C 
ERRORS EXCEED 
CUT-DFF 
1AXIMUM 7, 

iiD 




GO TO GETADJ TD 
READ AND LINK. TD 
PHASE Dl 



GLDUT 



NDGD 



103 



MOUE ERROR COUNTS 
TD MESSAGE 



-fc= 



112 

RESTORE CARRIAGE 




104 



'ERROR CUT-OFF — 
LANG ERRORS . . » 
REF ERRORS . ' 




LINKB 



READ OUTPUT 
ROUTINE. READ 
AND LINK TD 
PHASE B 



BEGINS 



NDTUCH 

ADMIN RUN, WRITE 
BACK. UPDATABLE 
BLOCK 





121 


DOWN CNT 
POINTER 

CODED S 


BY 1* SET 
IN TRANS 
WITCHES 








122 


SET POINTER ON CARD 
TO COLUMN 12 








123 


SET POINTER IN 
TRANSACTION ADDRESS 
TABLE 


TD 
NUL 


200 
RB 



EXIT 



a.13 



NULAB 



200 



QCE21 



COLLECT j 
LEFT-JUSTIFY > AND 
SQUASH SPACES OUT 
OF 





t 


! 201 

LABEL AT CARD 
POINTER; UP CARD 
POINTER 






202 

UP TRANS AD 
PDINTER j TRANS NO., 
TRANS CODED POINTER 
1 









OCEND 




TO 220 




TFND 



220 



HOVE NUMBER OF 
AMOUNTS, LITERAL 
CODES FROM 
TRANSACTION 



to m 

0UTC2 



'TRANSACTION 
CODED TWICE. NO 




TD 205 
DCEND 





wr 


UP ADDRESS IN LABEL 


TABLE > MOVE CODE 


ADDRESS 


TO TBNR 







HAJJIT 




22', 



U£ ADDRESS IN LABEL 
TABLE > SET ROUTINE 
USED DIGIT 



213 



MOVE TRANS NO . TO 
MESSAGE, UP PHASE C 
ERRDRS BY 1 




TO ERPRNT, «ND 
PROS FOUND FOR 
THIS TRRN TYPE 
NO . . . « 




TO 205 
QCEND 



NOSRIP 






AGD12 224 




SET THIS TRANS 




CODED SWITCH ON 


> . — —fc, 





215 

MOVE TRANS NO. TO 
MESSAGE .> UP PHASE C 
ERRORS BY 1 



TD 211 







AGOGO 


225 


MOVE TRANS ADDRESS 
TO TFN0+11> 
INITIALIZE TABLE 
SEARCH 



TO 212 





1 



301 



CLEAR FLAG DN ND . 
OF AMOUNTS.) MOVE 
CUST ADDR TD SUBAD 



TD HCO 
TBNR 



NSUBL 302 
SET SUBAD AS * 



o 



td iac 

TBNR 




a/5 



TBNR 



400 



MDRYET 



D8JECT DECODING 
LDDP 





1 


401 

MOVE IN OP CODE 
DIGIT 


\ 


1 








r 


403 

CLEAR FLAG> SET 
1620 INSTRUCTION AS 
SUBTRACT 


\ 


f 


A12 404 

UP CODE POINTER TO 
ADDRESS PORTION 







TO 


413 




ADD 




412 


SET 


1620 




INSTRUCTI 


ON AS 


ADD 



TD 404 
A12 



413 



MOVE VOUCHER 
LITERAL CODE TO 
AMB2+11 



DIS12 





SOMAMT 



TD 205 
QCEND 




DISAMT 



421 



MOVE DISCOUNT 
LITERRL CODE TO 
AMB2+11 



TD 414 
DIS12 



AMB2 



422 



MULTIPLY DIGIT BY 
LENGTH OF WISAL 
FIELD 










424 


HDUE CASH LITERAL 


CDDE TO 


AMB2+11 


TD 


414 


DIS12 



NUMAPIT 



425 



PIDVJE TRANSACTION 
ADDR FRDH TFN0*11 
TD 1620 INSTRUCTION 



TO 500 



2*6 



500 

ADD INTO 1620 
INSTRUCTION »D« THE 
PRODUCT FRDM AMB2 



1 

501 

MDUE ADDRESS FROM 
CODE POINTER TO 
1620 INSTRUCTION 




50H 

HOVE TRANS. NO. TO 
MESSAGE > UP PHASE C 
ERRORS 1 



**»»* PERFORM \ 
ASSEMBLED 1620 \ 
INSTRUCTION > 
***** / 



TO ERPRNT* 
«SUSLED6ER USED 
ERRONEOUSLY, 
TRAN NO. . ' 



NXT 



515 



UP CODE POINTER 1 
TO NEXT OP CODE 
DIGIT 



TO MQO 
T*NR 




RETURN 





RENDUE - DR CR 
INDICATION 



TOED 



1H 



WDUE DIGIT FRDPI 
DATA POINTER TO 
WORK POINTER 



ED32 5 

HDUE CENTS DIGITS 
TO WORK AREA, DDUN 
DATA POINTER 2 



TO 10 



15 

DOWN DATA POINTER 1 



LSTED 23 
DOWN WORK. POINTER 2 




25 

ROUE HIGH-ORDER 
DIGIT TO WORK 
POINTER* CLEAR FLAG 



TD 20 



100 



UBRDUTINE BLLIN 




200 




K61 



211 



NDUE MESSAGE FRDM 
BTM ADDRESS TD 
CENTER OF LINE 
IMAGE 







202 

MOVE MESSRGE FROM 
BTM ADDRESS TO 
CENTER OF CARD 
IMAGE 


1 


r 

203 



212 



PRINT OUT LINE 



TO 20^ 
CRS 



PUNCH OUT CARD 



CRS 



20H 



CLEAR POSITIONS 
1-80 OF OUTPUT AREA 



RETURN 



300 



'SUBROUTINE TITLO' 




1 





303 


SCAN CARD. RILL 


TRAILING 


** RILL 


'TITLE' > 


PUT * IN 


80 




r 




30"+ 


/ PUNCH OUT CARD 


TD 


20H 


CRS 





■ ? 

313 

WRITE LINE 




7 

CRS12 314 

CLEAR POSITIONS 
81-120 OF OUTPUT 
AREA 



TO 20H 
CRS 



400 






f 




402 


{ PUNCH OUT 


PREVIOUS 


SET-UP CARD 


1 

TO 


204 



CRS 



R41 



403 



WRITE OUT 
PREVIOUSLY SET-UP 
LINE 




405 

RESTORE CARRIAGE 



CR12 



222- 



GLQUT 

SET GLLDCP+11 
POINTER TD FIRST AD 
IN PCCT. NO. TABLE 



GLLODP 



10 



MOVE AD OF flCCT NO. 
TO GLBNF+1 1 



EDGL1 20 

MOVE BEG BAL TO 
FINAL BAL 



1 

SET EDGL2+6 POINTER 
IN UPDATABLES TO 
FIRST TOT DBS 




f 


2 

SET EDGL1+11 
POINTER TO FIRST 
BEG BAL 







SET EDGL1+6 POINTER 
TO ZERC-TH FINAL 
BAL 



1 



1 1 

MOVE ACCT NO. TO 
OUTPUT AREA 






GLBNF 12 

DO RIGHTWARD FLAG 
SEARCH TO START OF 
NEXT LABEL 




r ■ 



TFLABD 



13 



NDUE REMAINDER OF 
LABEL INTO FLD1 
LOCATION 



*?D TO EDIT FOR 
TOT DBS> MDUE TO 
FLD3 LOCATION 





r 


22 

ADD TOT DBS TO 
FINAL BAL* UP 
POINTER TO CORRECT 
TDTDBS 


■ ■ 1 





EDGL2 23 

SUBTRACT CORRECT 
TOT DBS FROM TOT 
DBS 



X 



PRODUCE TITLE 
LINE TD BEGIN 
NEW PAGE 



1H 

UP POINTER IN 
UPDATABLES TO NEXT 
FINAL BAL CAT 
ED6L1+6 



DDFL3 



2H 



UP EDGL2+6 POINTER 
TO TOT CRS 




TO 10 TO 20 TO 100 



GLLODP EDGL1 



100 



SUBTRACT TOT CRS 
FROM FINAL BAL 



no 

UP POINTER IN 
UPORTABLES TO NEXT 
TOT DBS 



120 



SET EDARl+1 1 
POINTER TO FIRST- 
BEG BAL 



101 

UP EDGL1+11 POINTER 
TD CORRECT TOT CRS 



11 1 

UP GLLODP POINTER 
TO NEXT 00 IN TABLE 



121 

SET EDRR1+6 POINTER 
TO ZERO-TH FINAL 
BAL 




GO TO OUTLIN TO 
PRODUCE OUTPUT 



114 

SET ARBNF POINTER 
IN A.R.S.L. LABELS 



AR2H 



12H 



UP BOTH TFARLB AND 
ARBNF POINTERS 1 
COL C2 LOCATIONS} 



105 

UP POINTER IN 
CONSTANT BLOCK. TD 
NEXT BEG BAL 



TO 110 



115 



SET EDAR2 POINTER 
IN UPOATABLES TO 
FIRST TOT DBS 



TO 120 




TO 200 



20Q 

DOWN ARSNF POINTER 
1 LOC. TD LOST 
CODD3 PDSITIDN 






TFflRLB 

MOVE fl.P 
FROM RP 
TFflRLB F 


201 

. LABEL 
BNF TD 
D INTERS 




PUT OUT LINE DF 
TOTALS 



202 

UP EDAR1+6 POINTER 
TO NEXT FINAL BflL 



212, 



PUT DUT TITLE 
LINE STARTING 
NEW PAGE 



GO TD EDIT FDR 
BEG BflL. HOVE TD 
FLD2 LOCATION 



213, 



PUT DUT INCOME 
•^STATEMENT HEADER 




TD 210 




SET TFMD2+1 1 
POINTER TO FLD1 
POSITION + 10 
CHARACTERS 



12 

DOWN ISBNF+11 1 TO 
LAST CODD) POSITION 
OF LABEL 



TFLBIS 



22 



MDUE LABEL WITHOUT 

CODES TO 
CONSTRUCTED RIGHT 

COL ADDR 



1 

SET EDITS+11 
POINTER IN ADDR 
TABLE TO DOLLAR 
ANTS 



EDIS 



13 



MOUE DOLLAR ANT 
FROM EDI S+ 11 
POINTER ADDRESS TO 
EDITO 



NMIS 



23 



PERFORM COMPUTED GO 
TO ON LABEL CODE TO 
VARIOUS ROUTNS 






RDU 110 

ADVANCE THE EDIS+11 
POINTER TO NEXT 
ADDR IN TABLE 




120 

ADD COL 2 TOTAL TD 
COL 3 TOTAL* THEN 
ZERO COL 2 TDTflL 


— — — - 




r ■ ' 


■ i 




\ ICO in/ 

\ 60 TO OUTLIN TD / 
\ PUT OUT THE / 
\ RSSEMBLED LINE / 


121 

SO TO EDIT FOR COL 
2 TOTAL > MOUE TD 
COL 3 


TO 5 


I 


i 



ISLOOP 




122 

GO TD EDIT FDR 
EDITD AMOUNT, MOUE 
TO COL 2 



103 



113 



ADD ED I TO ANT TD 
COL 1 TOTAL 



' i O 



123 

GO TO EDIT FDR 
ED I TO ANT AND MOUE 
TD COLUMN 1 




K.3 



ADD ED I TO AMT TD 
COL 3 TOTAL 



12t 

GO TD EDIT FDR 
COLUMN 1 TOTAL AND 
MOUE TD COLUMN 2 




115 

GO TO EDIT FOR 
EDITD AMT AND MOUE 
TD COLUMN 3 



125 

ADD COL 1 TOTAL TD 
COL 2 TOTAL, THEN 
ZERO COL 1 TOTAL 



TO 110 
ADU 



TO no 

ADU 



aa7 









210 



ADD EDITO ANT TO 
COL 1 TDTAL 



211 

GO TO EDIT FOR 
EDI TO ART PND HOVE 
TO COLUMN 1 



TO 110 
ADU 



212 



SET till AD AS 
STDR1 FIELD 



RY 



213 



SET K.ZI I AD AS 
ST0R2 FIELD 



214 



SET RZM AD AS 
ST0R3 FIELD 





RZII 


215 


T 


50 


TO EDIT WITH 





PREU 


SET AHT j MOVE 


2 




TO COL 1 


2 














TD 420 



LABEL 
CODE U 7 



LABEL 
CODE U 7 



NO 



LABEL 
CODE T 7 



NO 



LABEL 
CODE S 7 



'ND 



LABEL 
CODE R 7 



NO 



LABEL 
CODE □ 7 



220 



221 



222 



223 



22H 



225 



'YES 



IT 



30D 



LABEL 
CDDE P ? 



NO 





RP 



310 



HOWE COL 2 TDTPL TD 
STDR2 FIELD 



TD 5 
ISLDDP 



RD 



311 



MOYE CDL 2 TOTAL TD 
STDR3 FIELD 



TD 5 
ISLDDP 



LABEL 
CDDE M 7 



NO 



303 



RM 
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"INTERMEDIATE 
BETWEEN I .3. AND 
B.S. * 



323, 

,PUT DUT TITLE FDR 
WEW PA6E CSD TD, 
O \ TITLO) 



30"+ 



LABEL 
CDDE L 1 




PUT DUT TITLE FDR 
NEW PAGE, DNE 
O \ BLANR LINE 



1 




<r— ~ 

r ' 


RN 


313 


ZERO ALL COLUMN 


TOTALS 



PUT DUT B.S 
HEADER UIA 
HEDLIN AND 
BLLIN 



TO 5 
ISLDDP 



400 



LABEL 
CODE J ? 



NO 




'BAD OUTPUT CODE 
IN B.5.* I.S. 
LABELS' 



EXIT 




PUT OUT ***** 

UNDER COLUMN 3 




R2 



410 



ADD DOLLAR AWT AT 
EDI TO ADDR TD 
COLUMN 2 TOTAL 



TO 404 
R2II 



R6 



411 



60 TO EDIT FOR COL 
3 TOTAL > MOVE TO 
COL 3 WITH * 



TD 111 
RO 



R7 




412 


60 


TO EDIT FOR 


COL 


2 


TDTAL, MOVE 


TD 




COL 2 





420 

ADD RZII AWT TD COL 
1 TOTAL 



TD 111 
RO 



RW 



421 



SET RWII AD AS 
STDR1 FIELD 



V 



Run 



422 



60 TO EDIT FDR PREV 
SET FIELD* MOVE TD 
COL 2 



TD 5 


TO 111 






ISLDOP 












\ 


f 


R9 403 




R8 413 






423 


SUBTRACT DOLLAR AWT 




60 TO EDIT FDR COL 




ADD RWII ART TD COL 


AT ED I TO ADDR FROM 




2 TOTAL, MOVE TO 




2 TOTAL 


COL . 2 TOTAL 




COL 3 









TD 111 
RO 



T 

R2II 404 

60 TO EDIT FDR THE 
ART AT ED I TO ADDR, 
AND NDUE TD CDL2 



7 

414 

ADD COL 2 TOTAL TO 
COL 3 TOTAL, THEN 
ZERO COL 2 TOTAL 



TD 110 
ADU 



TD 111 
RO 



o 




TD H22 TD 5 

K.UII ISLDDP 
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SET KWII AD AS 
ST0R3 FIELD 



ML 
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* END DF BALANCE 
SHEET * 



521 

NOUE EDITED ERROR 
5UM> PRINT 'YOU 
GOOFED . - ' MESSAGE 



TO 422 
HUH 



502 



MDUE COL 3 TDTflL TO 
STDR1 FIELD CDO 
NOT PRINT LINED 



PUT OUT ***** 
UNDER COLUMN 3, 
FOUR BLANK. 
LINES 



TO 5 
I SLOOP 



US 



503 



MOVE COL 3 TOTAL TO 
STDR2 FIELD 



TO 5 
ISLDDP 



K.R 



50H 



MDUE COL 3 TOTAL TD 
STDR3 FIELD 



TO 5 
ISLDDP 



1 




343 

HDDIFY HEDLIN \ 
MDUE-TQ ADDR UP \ 
4 COLUMNS > 
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51H 

ADD ST0R3 FIELD TO 
COL 3 TOTAL C ASSETS 
TO LIflBITITIES) 
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GO TD EDIT FOR SUM 
IN C0L3 TOTAL 




\OUTNOT 

PUT OUT 'BUT NOTE 
PROGRAMMING 
ERRORS ABOUE' 
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{ PUNCH CARD WITH = 
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TD 520 
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AL45 
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PUT OUT "BINGO 
MESSAGE 
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SEER 
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LANGUAGE + REF 
ERRORS 
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READ + LINK. 
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B5 
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020060 




020070 
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020200 




020210 
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CUSTOMER TRANSACTIONS. 

CASH RECEIPTS ON ACCOUNT. DEBIT AC 1111 BY CASHAMT. DEBIT AC 
4113 BY DISCAMT. CREDIT AC 1115 BY (CASHAMT ♦ DISCAMT). 
CREDIT SUBLED(CUST) BY (CASHAMT ♦ DISCAMT). 
CASH SALES AND SALES TAX. DEBIT AC 1 11 1 BY CASHAMT. CREDIT 

AC 2118 BY AMTl. CREDIT AC 4111 BY (CASHAMT - AMTl), 
CHARGE SALES. DEBIT AC 1115 BY AMTl. CREDIT AC 4111 BY AMTl. 

DEBIT SUBLED(CUST) BY AMTl. 
SALES RETURNS. DEBIT AC 4112 BY AMTl. CREDIT AC 1115 BY AMTl. 

CREDIT SUBLED(CUST) BY AMTl. 
VOUCHERS. 

RENT. DEBIT AC 7114 BY VOUCHAMT. CREDIT AC 2113 BY VOUCHAMT. 
FREIGHT-IN. DEBIT AC 5112 BY VOUCHAMT. CREDIT AC 2113 BY 
VOUCHAMT. 

OFFICE SUPPLIES. DEBIT AC 7115 BY VOUCHAMT. CREDIT AC 2113 BY 
VOUCHAMT. 

STORE SUPPLIES. DEBIT AC 6115 BY VOUCHAMT. CREDIT 2113 BY 
VOUCHAMT. 

ADVERTISING. DEBIT AC 6112 BY VOUCHAMT. CREDIT AC 2113 BY 
VOUCHAMT. 

MISCELLANEOUS SELLING. DEBIT AC 6117 BY VOUCHAMT. CREDIT AC 

2113 BY VUUCHAMT. 
PREPAID INSURANCE. DEBIT AC 1120 BY VOUCHAMT. CREDIT AC 2113 
BY VOUCHAMT. 

OFFICE EQUIPMENT. DEBIT AC 1313 BY VOUCHAMT. CREDIT AC 2113 
BY VOUCIAMT. 

DELIVERY. DEBIT AC 6113 BY VOUCHAMT. CREDIT AC 2113 BY 
VOUCHAMT. 

PETTY CASH. DEBIT AC 5112 BY AMTl. DEBIT AC 4112 BY AMT2. 

DEBIT AC 6117 BY AMT3. CREDIT AC 2113 BY VOUCHAMT. 
MERCHANDISE PURCHASE. DEBIT AC 5111 BY VOUCHAMT. CREDIT AC 

2113 BY VOUCHAMT. 
MISCELLANEOUS GENERAL EXPENSE. DEBIT AC 7123 BY VOUCHAMT. 

CREDIT AC 2113 BY VOUCHAMT. 
UTILITIES EXPENSE. DEBIT AC 7117 BY VOUCHAMT. CREDIT AC 2113 

BY VOUCHAMT. 
CASH DISBURSEMENTS. 

ISSUE CHCCK. DEBIT AC 2113 BY (CASHAMT ♦ D I SCAMT ) . CREDI T AC 

llll BY CASI.AMT. CREDIT AC 5114 BY DISCAMT. 
CASH RECEIPTS. 

ON NOTES. DEBIT AC llll BY CASHAMT. CREDIT AC 1113 BY 

(CASHAMT - AMTl). CREDIT AC 8111 BY AMTl. 
DISCOUNTED NOTES. DEBIT AC llll BY CASHAMT. DEBIT AC 1121 BY 
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VOUCHAMT), 
CREDIT AC 2111 BY AMTl. 

AMTl). DEBIT AC 9111 



AMTl. CREDIT AC 2 1 1 1 BY (CASHAMT + AMTl). 
MISCELLANEOUS 

BUY EQUIPMENT WITH NOTE. DEBIT AC 1311 BY ( AMTl 

CREDIT AC 2113 BY VOUCHAMT. 
PAY NOTE. DEBIT AC 2111 BY (VOUCHAMT 

BY AMTl. CREDIT AC 2113 BY VOUCHAMT. 
RECEIVE NOTE. DEBIT AC 1113 BY AMTl. CREDIT AC 1115 BY AMTl. 

CREDIT SUBLED(CUST) BY AMTl. 
RECEIVE CREDT MEMO. DEBIT AC 2113 BY AMTl. CREDIT AC 5113 BY 
AMTl. 

WRITE OFF BAD DEBT. DEBIT AC 1116 BY AMTl. CREDIT AC 1115 BY 

AMTl. CREDIT SUBLED(CUST) BY AMTl. 
PURCHASE FIXTURES. DEBIT AC 1311 BY VOUCHAMT. CREDIT AC 2113 
BY VOUCHAMT. DEBIT AC 1312 BY AMT3. DEBIT AC 1 3 1 1 BY 
(AMT2 - AMT3). CREDIT AC 1311 BY AMT2. 
ADJUSTMENTS. 

ADJUST STORE SUPPLIES INVENTORY. DEBIT AC 6115 BY AMTl. 
CREDIT n" 1118 B" AMTl. DEBIT AC 1118 BY AMT2. CREDIT AC 
6115 BY aMT2. 
ADJUST OFFICE SUPPLIES INVENTORY. 
CREDIT AC 1119 BY AMTl. DEBIT AC 
7115 BY AMT2. 

INSURANCE. DEBIT AC 6116 BY AMTl. DEBIT AC 7118 BY AMT2. 

CREDIT AC 1120 BY (AMTl + AMT2). ' 
INTEREST ON NOTES RECEIVABLE. DEBIT AC 1114 BY AMT 1 , 

AC 8111 BY AMTl. 
PREPAID INTRREST ON NOTES PAYABLE. DEBIT AC 9111 BY AMTl. 

CREDIT AC 1121 BV AMTl. 
ACCRUE SALARIES. DEBIT AC 6111 BY AMTl. DEBIT AC 7111 BY 

AMT2. CREDIT AC 2119 BY (AMTl ♦ AMT2). 
SALES TAX. DEBIT AC 6117 BY AMTl. CREDIT AC 2119 BY AMTl. 
BAD DEBTS. DEBIT AC 7' 19 BY AMTl. CREDIT AC 1116 BY AMTl. 
ADJUST INVENTORIES. DlBIV AC 3115 BY AMTl. CREDIT AC 1117 BY 
AMTl. DEBIT AC 1117 BY AMT2. CREDIT AC 3115 BY AMI 2. 
HO INTEREST ON NOTE i PAYABLE. DEBIT AC 9111 BY AMTl. CREDIT AC 
2112 BY AMTl. 

Fll DEPRECIATION. DEBIT AC 6114 BY AMTl. DEBIT AC 71 16 BY AMT2 • 



DEBIT AC 7115 BY AMTl. 
1119 BY AMT2. CREDIT AC 



CREDIT 
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82 


0094 


XREF 


107B9 


BIO 


CI 


CI 


CI 


CI 


CI 


A2 




0095 


XREF 
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TITLE COMPLETE SAMPLE SOLUTION 

- OIC020 -CUSTOMER TRANSACTIONS. 

010030 Al CASH RECEIPTS ON ACCOUNT. DEBIT AC 1111 BY CASHAMT. DEBIT AC 
0.1-0060 4 113 tj Y CUSCAM-T— CIUJXI4— AC I 1 1- S-- B V KA S HAM .T— fUQI.SCAMXn. ._ ...... _ 

010050 CREDIT SIA1LED4CUS To BY 3CASHAMT G DISCAMTd. 
010060 A2 CASH. SALES AND SALES TAX DEBIT AC 1111 BY CASHAMT. CREDIT 

010070 AC 2118 BY AMTl. CREDIT AC 4111 BY 2CASHAMT - AMTln. 

010080 A3 CHARGE SALES. CEBIT AC 111 5 BY AMTl. CREDIT AC 4111 BY AMTl. 

010090 DEBIT SUE LED^CUS Tn BY AMTl. 
010100 .A<t. -..SALES RETURNS.- DEBIT AC.4112 BY AMIi— CRtaiJ AC HIS BY AMU... _. 

010110 CREDIT SUHLEDmiSTtj BY AMTl. 

0101-20 VOUCHFJi-S. 

010130 Bl RENT. DEBIT AC 7114 BY VCUCHAMT. CREDIT AC 2113 HY VOUCHAMT, 
010140-B2 FREIGHT-IN. DEBIT AC 3112 BY VCUCHAMT. CREDIT AC 2113 BY 

010150 VCUCHAMT. 
010 140 .113 QFFLCE-.SUP.'LIES. DEBIT AC Z115-.BY VOUCHAMt. XREO I T AC 2113 BY 

010170 VCUCHAMT. 
010180 84 STCRE SUPPLIES. DEBIT AC 6115 BY VOUCHAMT. CREDIT 2113 BY 

010190 VCUCHAMT. 

010200 B5 ADVERTISING. DEBIT AC 6112 BY VOUCHAMT. CREDIT AC 2113 BY 

010210 VCUCHAMT. 

. ..01.0220 B.6 JU5X£Ll_AN.tUUS-.-S£U..lNG. .D£&iT.-A£ 611-7 BY. VQJUCHAM.T. CREDIT AC. ..... ..... 

010230 2113 i',Y VOUCH AM. T . 

. 020010 B7 PREPAID INSURANCE . DEBIT AC 1120 BY VOUCHAMT. CREDIT AC 2113 

020020 BY VOUCHA'IT. 

020030 B8 OFFICE EQUIPMENT. CEBIT AC 1313 BY VOUCHAMT. CREDIT AC 2113 

020040 BY VOUCHAMT. 

. -...02-0Q5U .fi-9. ... DELIVERY. DEB I T AC .6113. EY. VCUCHAM I » CREDIT AC 2113 BY 

020060 VOUCH AM T . 

020070. BIO PETTY CASH.. DEB IT AC 5112 BY AMTl. DEBIT AC 4112 BY AM.T2. 

020000 DEBIT AC > 1 1 7 BY \ M T 5 . CREDIT AC 2113 BY VOUCHAMT. 

020090 BU MERCHANDISE PURCHASE. DEBIT AC 5111 BY VOUCHAMT. CREDIT AC 

020100 2113 BY Vi.lUCHAMT. 

. 020110 El 2 MI SCELLANE-UELS -CENEivAL EXEEilSE. DEliXI AC 7123 BY VUUCHAM. 

020120 CREDIT AC 2113 BY VCUCHAMT. 

0201 30 013 UTILITIES EXPENSE. DEBIT AC 7117 BY VOUCHAMT. CREDIT AC 2113 

020140 BY VOCCHA-'T. 

020150 CASH DISBURSEMENT'S. 

020160 CI ISSUE CHECK. -DEBIT AC 2113 BY ^CASHAMT & DISCAMTo. C R E : < I T AC 

XI20170 1111 uY CASHAMT. CREDIT AC 5114 BY D I SCAM T. . 

020180 CASH RECEIPTS. 

020190 Dl ON NOTES. ,,t :l I AC 1111 HY CASHAMT. CREDIT AC IU3 BY 

020200 SCASKAMT - A»iTln. CREDIT AC 8)11 BY AMTl. 

020210 D2 DISCOUNTED NOTES. CEBIT AC 1111 BY CASHAMT . OEtUT AC 1121 B Y 

02O220 AVTl. CREDIT AC ? 1 1 1 K' Y SCASHAMT t A M T 1 □ , 

030010 M. I SCELL A.NC JUS 

030020 El HUY EQUIPMENT WITH NOTE. DEBIT AC 1311 BY £ AMT 1 £ V'UCHAMTa. . 

030030 CREDIT AC 2113 HY VCUCHAMT. CREDIT AC 2111 BY AMTl. 

030040 E2 PAY NOTE. »k-MX AC 2111 i?Y *VIJUCHAMT - AM T la. DIBIT AC 9 U l' 

0.30050 BY AMTl. CREDIT AC 2113 BY VOUCH AM T . . 

030060 E3 RECElVt NO Ft . CI.H1T AC 1113 BY AMU. CREDIT AC -1113 BY AMI. 

0300.70 CREDIT..SU:;LLD*C.USTu BY AMTl. 

030080 E4 RECEIVE CREOT MEMO. DEBIT AC 2113 t)Y' AMTl, CREDIT AC 5113 BY 

03C090 AMTl. . 

030100 F5 WRITE OFF BAD DEBT. DEBIT AC 1116 BY AMTl. CREDIT SC 1115 BY 

030110 AMTl. CREJIT SUBl.t 01 CUSTu BY AMTl. 

030120 E6 PURCHASE FIXTURES. DEBIT AC 1311 BY VOUCHAMT. CREDIT AC 2113 



030130 KY VllU.hl'l. i M- I I AC 131,' C Y AMT 3 • DbBIT AC 1311 BY 

030140 *AM? - A a in. I. 'ltll AC 13U BY AMT2. 

0301<>0 MJ.IUSTMI ;l •>. 

030t60 Fl ADJUST 1 LJ < 1. iUi'I'LIU I.MUEJuILHv . fip p | f ft f H.Y_AMXJ^ — 

030170 CRPW! \C lllc 1 Y AMI. Uhhlr AC 1118 BY AMT2. CREDIT AC 

030180 611'i BY AM2. 

030190 F ? ADJUST OFFICE SUPPLIES INVENTORY. E B I T AC 7115 BY AM T 1 • 
030200 C.-1FI1IT AC 111M V AMI. DEBIT AC 1119 BY AMT2. CREDIT AC 

030210 711'. :>Y I, 'J? . 

0302211. F3- . I-NSljRAh.CE.. Ui-bll AC 611b BY Attn. nrp[T 7 1 1 ri_ B.Y. . AMX2-. — - ..- 
030230 CREf;! T AC. 1 120 i-Y «HI1 At* I 2a. 

040010 F4 INTEREST U( <Hli:. t Lf I V« nLE , CEBIT AC 1114 BY AMT1. CREDIT 
040020 AC II 1 1 1 BY AM r 1 • 

040030 F5 PREPAID I NTS. .'. fc S V \i\ NUTtS PAYABLE. DEB I T AC 9111 BY AMU. 
040040 CREDIT AC 1 L 2 1 l-Y.AMl. 

040050 F6 ACCRUE. SALARIES. I.;UT AC illl BY AMU. DEBII-AC 7XU BY- 

040060 ANT?. CREDIT AC ? 1 l'l BY KWl t AMT2n. 

040070 F7 SALES I AX. DEBIT AC 6117 UY AMU. CREDIT AC 24. LB BY AMT1. 

040000 F8 BAD DEhTS. DCBIT AC /119 BY AMT1. CREDIT AC 1116 BY AMT1. 

040090 F9 ADJUST 1 NVEN TOR I t S « DEBIT AC 3115 BY AMU. CREDIT AC 1U7 BY 
040100 AMI. DEBIT AC 1117 BY ANT?. CREDIT AC 3115 BY AMT2. 

Q40U0 F10 INTEREST UN NOIES PAYABLE • DEBIT AC :9-U_l-BY AM LI. .CR£ULT AC 
040120 2H? I'Y A'Tl. 

0401.30 111 DEPRECIATION. I.L'11 AC 0114 BY AM T 1 . DEBIT AC 7116 OY AMT2. 
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02015C 




020160 


Cl 


020170 




0201BC 




2 0190 


Dl 


020200 




020? 1C 


02 


02022C 




30010 




0-30020 


Ll 


) 3 0030 




300<tO 


E2 


' ! 3 00 J 




o ioObO 


t. 3 


300 70 




lUOCliu 


L4 


300 90 




03010C 


£5 


030110 




030120 


£6 


030130 




030140 




30150 




30 I 60 


F 1 


n 301 70 





COMPLETE SAMPLE SOLUTION 
CUSTOMER TRANSACTIONS. 

CASH .RECtll'TS UN ACCOUNT- DEBIT AC UU OY CASHAMT. CEBIT AC 
4113 .!Y DISCAMT. CREDIT AC 1115 BY iCASHAMT t OlSCAMTu. 
C Fl EDIT SUHLED.iCUSTu BY iCASHAMT £ OlSCAMTu. 
CASH SALES AND SALES TAX. DEBIT AC 1111 BY CAShAMT. CREDIT 

AC ?lla BY AMU. CREDIT AC 4111 BY 3XASHAMT - AMUu. 
CH4RGE SALES. OFBIT AC 1115 BY AMU. CREDIT AC 4111 BY AMT I . 

DEBIT SUBXEUiCUSTU BY AM T 1 . 
SALES RETURNS. ULBIT AC 4112 BY AMI. CREDIT AC 1115 BY AMU. 

CREDIT SUHLELUCUSTu BY AM T 1 , 
VOUCHERS. 

KC.JI. DEBIT AC 7114 BY VUUCHAMT. CREDIT AC 2113 BY VOUCHAMI. 
FRl. IOHT-IN. f> t i I T AC 511? '3Y VOUCHAMT. CREDIT AC 2113 BY 
VOUCHAMT. 

OFFICE SUPPLlt... DEBIT AC 7115 FY VUUCHAMT. CRtUIT AC 2113 BY 
Vi.UCHAMT. 

STORE SUPPLIES. DEBIT AC 6 1 1 'j BY VOUCHAMT. CREDIT 2113 BY 
VOUCHAMT. 

AO V LR T I S I N'j • OLOlT AC 6112 BY VUUCHAMT • CREDIT AC 2113 BY 
. VOUCHAMT. 

M I SCELLANEOUS SELLING. DIBIT AC 6117 BY VOUCHAMT. CREDIT AC 

2113 BY VUUCHAMT. 
PREPAID INSURANCE. DEBIT AC 1120 HY VUUCHAMT. CREDIT AC 2113 
!3Y VOUCHAMT. 

OFFICF EGUIPMMT-. DEBIT AC 1313 BY VUUCHAMT. CREDIT AC 2113 
BY V0UCH4MT. 

DELIVERY. DEBIT AC 611? BY VUUCHAM . CREDIT AC 2113 BY 
VUUCHAMT. 

PETTY CASH. DEBIT AC 511? BY AMT 1 • UHB1T AC 4112 BY AMT 2 . 

DtbIT AC 6117 BY AM T 3 . CREDIT AC 2113 BY VUUCHAMT. 
MERCHANDISE PURCHASE. DEBIT AC 5111 -3Y VF1UCHAMT. CREDIT AC 

2113 BY VUUCHAMT. 
MISCELLANEOUS GENERAL u XPE JSC . DEBIT. AC 7123 BY VOUCHAMT. 

CREDIT AC 211) BY VUUCHAMT. 
UTILITIES EXPENSE . OF B I T AC (117 '1Y VOOCHAMT.. CREDIT AC ?113 

BY VUUCHAMT. 
CASH DISBURSEMENTS. 

ISSJi CHECK. DEBIT AC 2113 BY iCASHAMT £ DISCAMTP. CREDIT AC 

1111 UY CASHAMT. CREDIT AC 5114 BY DISCAMT. 
CASH RECEIPTS. 

Or-i .NOTES. OFBIT AC 1111 oY CASHAMT, CREDIT AC 1113 BY 

ICASHAMT - AM T in. CREDIT AC Bill BY AMU. 
DISCOUNTED NOTES. DEBIT AC 1111 BY CASHAMT. OfcBIT AC 1121 nY 
AMI. CREDIT AC 2111 BY iCASHAMT 6 4MUu. 

"■I SCELLANEOUS 

!>UY EUUIPMLM WITH MUTC. DEBIT AC 1311 BY AMT 1 C VOUCHAMTu. 

C-I.OIT AC 2113 BY VDUCMAMr. CREDIT AC 2111 BY AMT 1 • 
PAY jOIE. DEBIT AC 2111 :.Y CVOUCHAMT - AMT la. DEBIT AC 9111 

t-,Y \<m. CREIjII AC 211 i BY VODChV'T. 
kEClIVL NOIE. UCBIT AC 1111 BY AM T I . CRLDI 1 AC 1115 BY AM T I . 

CRIDIT SUI-LED^CUSTii BY A M T 1 • 
RECEIVE CREDT "EMO. DEBIT AC 2113 .Y AMI. CREDIT AC 5113 BY 
AMI. 

WRITE OFF BAD ULBT. DEMI AC 1116 BY AMT1. CREDIT AC 1115 HY 

AMI. CREDIT SUBlHUSXUSrn nY AMI. 
PURCHASE FIXTURES. DEBIT AC 13U BY VUUCHAMT. CREDIT AC 2113 
BY VUUCHAMT. DEBIT AC 1312 HY AM). DEBIT AC 1311 BY 
*"DM2 - AMT.3U1. CRLDIT AC 1311 BY V--I2. 
AD JbST'iENTS. 

.1DJUST STOKE SUPPLIES IMVE'ITORY. 01 ill AC 6115 BY AMT 1 • 
Cil'.UT AC lll.i BY AMI. DEBIT AC 111" UY AM?. CRIDIT .'. . 



030190 F2 
-O3OZO0 



ADJUST OFFICE SUPPLIES INVENTORY. DEBIT AC 7115 BY AMT1. 
CREDIT AC llia-ftY-AMT-1. UEB4-I- -AC-_UO^-B*L_Ai£r2 CREDIT AC 



030230 
0600 1 F A 



7115 BY AMT2. 

CEBIT -AC 6116 BY AMT4~-D€BU— AC-7US BY AMT2. 
CREDIT AC 1120 BY SAMT1 £ AMT2n. 
I NTE R E S T OM NOTES R E CE I VABLE . DEBIT AC UU BY A MU . C RE DI T 



040020 AC 8111 BY AMU. 

-040030 FS PREPAI D INT E RE S T O N NOTES -PA YAB L E . -JJEflJJ .AC- 91J,1 -g.Y AHTl. 

040040 CREDIT AC 1121 BY AMU. 

4 50 F6 — ACC R UE S ALAR4E-S- DfcBtJ AC 6 111 &Y- AMU . . DE BIT AC XU1 BY 
040060 AMT2. CREDIT AC 2119 BY *AMT1 6 AMT2D. 

040070 F7 SALES TAX. DFB1T AC 61 17 BY AHTl. CREDIT, AC ?ilft BY AMTI. 
040080 F8 BAD DEBTS. DEBIT AC 7119 BY AMTI. CREDIT AC 1116 BY AMTI. 

AD JUST— INVENTOR I £ S. DEB IT AC 3115— BY -AMU. XSEOIT AC 1117 BY 
040100 AMTI. DEBIT AC 1117 BY AMT?. CREDIT AC 3115 BY AMT2 . 

-O40U0--F10 INTEREST ON NOT£S PAYABLE. 0EB1T AC 94.11- BY AMTI. CREDIT AC 
040120 2112 BY AMTI. 

040130 FU DFPRFf. I ATIPIN . DEBIT AC 61 14 BY AMTI. flFRlT AC 71 1ft BY-AMT.2. 



040140 CREDIT AC 1312 BY AMTI. CREDIT AC 1314 BY AMT2. 

001 CI 002 B-l 003 CI 004. A I. 005 A.1 006 CI 007 Cl 

009 A3 010 A3 Oil Al 012 Al 013 Al 014 El 015 Cl 

0X7 CL— — 018 Bit 019 -BU 020 Cl 021 A3 022 Al 023 Al 

025 Al 026 B2 027 E2 028 Cl 029 Cl 030 Cl 031 E3 

033 A3 034 F3 03*1 F4 , 036 01 037 Al 03ft Al 39 R3 



041 E3 
.049 A3 



057 Cl 

-065 BU 

073 Cl 

081 F4 



042 Cl 

050 A3 

058 A4 
066 -CL 
074 Cl 
OB? Al 



043 Cl 
-Q5-L E2 

059 A2 
-06I XL 

075 A3 

083 A3 



044 A3 
052 B5-. 
060 B2 
06& A3 
076 Al 
0B» R? 



045 B4 
.053 R6 
061 Cl 
069 Al 
077 Al 
085 Cl 



046 B12 
.054. Cl 
062 01 
- 070 D2 
078 Al 
Oflft H1JL 



089 Cl 

-J39Z-.CJ__ 
105 B13 

. Hi CI— 
121 F5 



090 B5 
09-B— Cl 
106 B2 
U4,_A2 
122 F6 



091 Cl 
0.99 C l 
107 B9 
115 F9 
123 F7 



092 Bll 
1QQ.-A2 
108 BIO 
116 Fl 
124 F8 



047 Cl 
055 Cl 
063 B7 
071 E5 
079 A4 
087, RB- 



093 BU 
-JLQ1...A1 
109 Cl 
117 F2 
125 FU 



094 A4 
.1.02 Bll 
110 Cl 
118 F3 



095 A3 
103 B4 
111 Cl 
119 F4 



008 Cl 
016 B2 
024 A2 
032 A3 
040 BU 
048 Cl 
056 Cl 
064 86 
072 E6 
080 A2 
088 Cl 
096 A3 
104 B13 
112 Cl 
120 F10 



TITLE COMPLETE SAMPLE SOLUTION * 

, tittumtttt ****** ************** „ , 

THE WHOLESALE PAPER CO. 

GENERAL LEDGER 
APRIL 30, 1966 

t»«>,tttnn««t»tttttitttii««tt«ttt : 



ACCT NO 


TITLE 


BEG BAL 


TOTAL DB 


TOTAL CR 


ENDING BAL 


1111 


CASH IN HANK 


1, 


,976.45 


18, 


,309.08 


11, 


,393.26 


8, 


,892.27 


1112 


petty, fash — 




250., on 




• on , 




.on 




?5n.nn 


1113 


NOTES <: Cf I VArU '■■ 


1, 


,200.00 




819.67 




900,00 


1, 


,119.67 


1114 


INTERES T RECEIVABLE . - . 




9.58 




- .4.68 — 




.00 




14.26 


1115 


ACCOUNTS RECEIVABLE 


4, 


,172.08 


5, 


,960.65 


7, 


,180.42 


2, 


,952.31 


1116 


ALLOWANCE FOR BAD DtBTS 




262.5) 2CR 




58 7.63 . 




500.00 




175.29CR. 


1117 


MERCHANDISE I NVFN TORY 


35, 


,698.28 


32, 


,368.53 


35, 


,698.28 


32, 


,368.53 


-Jill 


. -SJORF SIJPP1. 1 FS ....... 




1 "jO.OO 




1 1 5.00 




,150.00 




1 15.00 


1119 


OFFICE SUPPLIES 




90.00 




95.00 




90.00 




95.00 


1120 


PREPAID . INSURANCE. 


1, 


, 120.00. 




226.50 




65.20 


1, 


,281.30 


1121 


PREPAID INTEREST ON NOTES PAYABLE 




.00, 




20.00- 




15.33 




4.67 


1311 


STORE ..EdUIPKENT 


2i 


,600.00 


5, 


,52 5.00 


2, 


,000.00 


11, 


,125.00 


1312 


ALLOW. FUR DLP. - STORE EQUIPMENT 


2, 


, 10O.O0CR 


1 , 


,750.00 




75.62 




425.62CR 


1 .31 3 


-OEFir.F f Cll 1 1 PMFNT , 


2. , 


,3no. on , 




75n.nn 




.00 


3, 


r n5n.nn 


1314 


ALLOW. FOR DEP. - OFFICE EQUIPMENT 




600.00CR 




.00 




19.16 




619. 16CR 


1315 


Bli.I LD IN j . 


. 4Z, 


,600.00 




. .00 ... 




.00 


42, 


,60.0.00 


1316 


ALLOW. FOR DEP. - BUILDING 


27, 


.658.00CR 




.00 




.00 


27, 


,658.00CR 


1317 


LAND . 


5, 


,000.00 




.00 




.00 


5, 


,000.00 


2111 


NOTES PAYABLE 


1, 


,400.00CR 


1, 


,400.00 


3, 


,000.00 


3, 


,OOO.OOCR 


Z112 _ 


.XNIERESJ. PAY AliL-E 




7..73CR. 




.00 ... 




._ 4^.33 






2113 


ACCOUNTS PAYABLE 


2, 


,804.90CR 


11 


,833.86 


14, 


,411.47 


5, 


.382.51CR 


2114 


EMPLOYEES INCOME TAXES PAYABLE 




263.0QCR 




.00 




.00 




263.00CR 


2115 


F. I .C. A. TAXES PAYABLE 




94.50CR 




.00 




.00 




94.50CR 


2116 


STATE UNEMPLOYMENT TAXES PAYABLE 




154.35CR 




.00 




.00 




154.35CR 


2117 


FEDERAL UNEMPLOYMENT TAXES PAYABLE 




22.05CR 




.00 




.00 




22.05CR 


21-L8. 


SALES, TAXFS PAYABLE ... ... ...... 




ft ) 5 . 1 Rf. R 




.. r QQ 




195.09 - 




B10.?7C.fi 


2119 


SALARIES PAYABLE 




.00 




.00 




175.00 




175.00CR 


2120 


ESTIMATED INCOME TAXES PAYABLE 




.00 




.00 




.00 




.00 


2121 


PROPERTY TAXES PAYABLE 




.00 




.00 




.00 




.00 


2211 


MORTGAGE PAYABLE 


12, 


,00O.OOCR 




.00 




.00 


12, 


,000.00CR 


3111 


PREFERRED 6? STOCK 


10, 


,O00.OOCR 




.00 




.00 


10, 


,0O0.00CR 


311? 


. CUMfiflN STUCK , ,, ... . 


in, 


t nnn.nnr» 




.00 




• on 


10, 


.non.oor.R , 


3113 


PREMIUM ON PREFERRED STOCK 


2, 


,200.00CR 




.00 




.00 


2, 


,200.00CR 


3114 


RETAINED EARNINGS 


Ui 


.983.76CR 




.00 




.00 


11, 


,983.76CR 


3115 


PROFIT AND LOSS SUMMARY 




.00 


35; 


,698.28 


32 


,368.53 


3, 


,329.75 


4111 . 


SALES - 




.00 




.00 


15 


,714.93 


15, 


.714.93CR 


4112 


SALES RETURNS AND ALLOWANCES 




.00 




225.54 




.00 




225.54 


AJU.3 — 


SALES LU SCUL.V1. .. 




... .no ... . 




. 94.00 




.00 




94.00 


5111 


PURCHASES 




.00 


5 


.-J32.67 




.00 


5 


,932.67 


5112 


FREIGHT-IN 




.00 




511.05 




.00 




511.05 


511 3 


PURCHASES RETURNS. AND ALLOWANCES 




.00 




.00 




395.00 




395.00CR 


5114 


PURCHASES DISCOUNT 




.00 




.00 




45.60 




45.60CR 


6111 


SALES SALAR IES 




.00 




123.33 




.00 




123.33 























61 12 


ADVERTISING FXPuNSL 


.1)0 


\ A \ * n A 


61 1 3 


DEI. IVFRY EXPENSE 


.00 


10 3.20 


4.1-14- 


Df4.>-UC1.ATK)N Uf- W n« £ E OW-PK fcN I 


►ua 


._ .. 25.*&2 — 


6 1 1 "5 


STOjii: SUPPLIES LXI'L 


.00 


24 7.05 


61 Ki 


INSURANCE EXPENSE - SILLING 


.00 


43.40 


6 I 1 7 


MISCELLANEOUS SELL I NG EXPENSE 


.00 


76.27 


nu 


OFFICE SALARIES 


-00 


51.67 


7112 


OFFICERS SALARIES 


.00 


.00 


711.1 


-.- PAXiiUtJ 3_AX -EXPANSE 


.on .. 


T nn 


7114 


RENT EXPENSE 


.00 


500.00 


7115 


OFFICE SUPPLItS EXPENSE 


.00 


16 5.50 


7116 


DEPR EC I AT I ON OF OFFICE EOLIPMENT 


.00 


19. 16 


7117 


UTILITIES EXPENSE 


.00 


205.60 


7118 


INSURANCE EXPENSE - GE MFWAL 


.00 


21.80 


71-4-9- - 


IU&-OCHTS EXPENSE - • .„ - 


. .00 


, nn 


7120 


REPAIRS ON IJU I I.I) I NG 


.00 


.00 


7121 


DEPRECIATION UF EUILDING 


.00 


.00 


7122 


PROPERTY TAX FXPF\SE 


.00 


.00 


7123 


MISCELLANEOUS GENERAL EXPENSE 


.00 


15.00 


Bill 


INTEREST INCOMF 


.00 


.00 


.9111 — 




„ua 


3 



.00 
.00 
.00 
115.00 
.00 
.00 
.00 
.00 
.00 
.00 

95.00 

.00 
.00 
.00 
.00 
.00 
.00 
.00 
.00 
16.18 
.00 



215.00 
103.20 
— 75.62 



132.05 
43.40 
76.27 
51.67 
.00 
.00 



500.00 
70.50 
19.16 
205.60 
21.80 

-5il0.a0 

.00 
.00 
,00 
15.00 
16. 16CR 
33*66 



««.» »_ t.» t ».t tJJUULt * o.itiJUtJt.* ttlttttttttJt* 

THE WHOLESALE PAPER CO. 

ACCOUNTS RECEIVABLE TRIAL BALANCE 
*••*•* <>*••*» *••••*•**** ***•*•••»* 



t 



*- 



ACT 


NO TITLE 


BEG BAL 


TOTAL DB 


TOTAL CR 


ENDING BAL 


10 


AC'H. CO. 


204.00 


283.60 


204.00 


283.60 


20 


S. R. BRU..N 


1B6.15 


502.35 


186. 15 


502.35 


30 


COSWFLL CORP. 


315.00 


60 3.98 


918.98 


.00 


.40. 


.DRAKE-ELM CO. 


252.JQ . 


314.79 


566.79 


.00 


50 


FRANK ELKINS 


133.52 


.00 


133.52 


.00 


60 


h. R. FISHER 


357.00 


519.71 


357.00 


519.71 


70 


HAIiUS CO. 


533.00 


872.20 


1«105.20 


.00 


80 


p.. o. hd*f 


.00 


373.67 


.00 


373.67 


90 


KING I BLAKE 


190.00 


214.20 


404.20 


.00 


-J.UO. 


-it IL Li AH LEEDS . 


- ^00 


91.30 


.00 


_ 91. 8Q 


110 


KCCLAIN CORP. 


208.00 


.00 


208.00 


.00 


120 


.YILLER CO. 


202.53 


237.15 


439.68 


.00 


130 


MIR TUN f INC. 


403.00 


719. 10 


U122.10 


.00 


140 


JAKES POST 


100.25 


.00 


100.25 


.00 


150 


HAROLD ROBERTS 


.00 


361.10 


.00 


361.10 


.1.60 


P.. N. scon 


500.00 


.00 


500.00 


.00 


170 


LE/.'IS TERRY 


.00 


867.00 


4b. 92 


820,08 


180 


GEOKf.F i-.ALL ACE 


587.63 


.00 


5b7.63 


.00 




TOTAL S 


k 4,172.08 


5,960.65 


7,180.42 


2,952.31 




HILJ COMPLETE 


SAMPLE SOLUTION 






t 



#**«#*»»*«*«##**»**«»**»*#»»«*«** 

THE WHOLESALE- PAPtR CCU.. 

INCOME STATEMENT 



UN TH ENDED APRIL 30, 1966 
»«»*»**»♦»»»»*»*»»»«*»«.»..»,».♦. 



SALES 

LESS RETURNS AND ALLOWANCES 
DISCOUNTS 

COST OF GOODS SOLD 

- . ji&GitouisG. i.\vet«ra?.Y. 

PURCHASES 
FREIGHT- IN 

LESS RETURNS AND 

ALLOWANCES 
. PURCHASE DISCOUNTS 
COST UF GOLDS 
AVAILABLE FOR 
SALE 

LNDING 1 i-wl-.N TORY 

COST OF GOODS SOLO 

GROSS PROFIT 

SELLING EXPENSES 
SALES SALARILS 
ADVI R T I S I NG 
DELIVERY 

Of PRPC I A T ION - S TORI" 
tl.MJIPtfi.NT 

stoke suppl us 

INSURANCE 
MISCELLANEOUS 



N!:RAL EXPENSES 
OFFICE SALAULS 
OFFICERS SALAMI 
PAYROLL TAXES 

i r 

u( \ 1C SUPPL li.o 
l.L.'<LO I AT ION - I 

Eij.jlPi-iti.T 
1 I L I I 1 ;• s 
I NS ORANGE 
• AO DELTS 
REPAIRS 
DEPREC I AT ION 
PROPERTY lAXt 
M I SCELl ANEOLS 



EUILLING 

i.rr 



NF1 UPFRATIMC INOli 
iCUCE ANO EXPENSE 
SI [NCD-N. 



39 5.00- 
4 5.60- 



123.33 
215.00 
103.20 

75. (j2 
I 32.05 
4 3.40 



/0.5Q 

r;.i6 

2C5.60 
21 .60 

500.0 
.GO 
.00 



225.54 
94.00 



35,698.28 
5, "J32. 67 
511.05 
42, 142.00 



4 1,701.40 
32 , 168.53 



1.6. 18- 
3 3.66 



31 J. 54 
15,395.39- 



2, 152.60 
i 3,909.92- 

1 7.48 
l 3,U<J2.44- 



* 

* 



COMPLETE SAMPLE SOLUTION 



THE WHOLESALE PAPiR CO. 



BALANCE SHE8T 



APRIL 30,1966 



LIABILITIES AND CAPITAL 



CURRENT ASSETS 



CURRENT LIABILITIES 



CASH IN BANK 

PETTY CASH 

NOTES RECEIVABLE 

I NTEREST RE CEI V ABLE 

ACCOUNTS RECEIVABLE 
I K=S Al I ohancf FOR 



8,892.27 

?so.nn 



NOTES PAYABLE 
t MTFRRtT P AYABI F 



1,119.67 
14.26 



ACCOUNTS PAYABLE 

F M Pl.OyEF S JmCOME--T.AX P AYABI E 



F.I.C.A. TAXES PAYABLE 

STATF IIN FMPI nYMFN T TAXFS PAYARI F 



3,000.00- 
12.06- 
5,382.51- 
_ 263,00- 
94.50- 



BAD DEBTS 
MER£iU,N0.I-SE--Un/£J>lTOKY 
STORE SUPPLIES 

OFFICE SUPPLIES 

PREPAID INSURANCE 
-PRFPAin IMTFRRST »N 



2,777.02 
32, 36a,. 53 
115.00 
95- 
1,281.30 



FEDERAL UNEMPLOYMENT TAXES 
PAYABLE _ 



SALES TAXES PAYABLE 
SALARIES -PAYABLE 



ESTIMATED INCOME TAXES PAYABLE 
P R O P ERTY TAXES PAYABLE 



22.05- 
810.27- 
175.00- 



NOTES PAYABLE 



4.67 



TOTAL CURRENT. ASSETS 
PROPERTY, PLANT 6 EQUIPMENT 



TOTAL CURRENT- LLARl 



. LONG-TERM J-I-AB IU XY 
MORTGAGE PAYABLE 



STORE EQUIPMENT 

LESS ACCUMULATED . 
DEPRECIATION 

OFFICE EQUIPMENT 

.. LESS -ACCUliLU_A.I£U__ 

DEPRECIATION 

BUILLiflG 

LESS ACCUMULATED. 

DEPRECIATION 



TI1[",L PKCP, PL IT £ EQUIP 



11,125.00 

425.6?- 10,699.38 
3,050.00 

619.16- 2,430.84 
42,600.00 

27,658.00- 14,942.00 
5,000.00 
33,072.22 



- TOTAL LIABILITIES- - ... 

CAPITAL 

.... PREFERRED 6* STOCK - 150 PAR. 200. 

SHARES ISSUED AND OUTSTANDING 
COMMON STOCK - -S2L0-PAR, ,3000 



9,913.74- 
12,000.00- 
21,913.74- 



SHARES AUTHORIZED, 1500 SHARES 

ISSUED AND OUTSTANDING- 

PREMIUM ON PREFERRED STOCK 



-RETATNFn FARN1JSIGS-. 



.30,0.00.00- 
2,200.00- 



42,200.00- 
_L5.a76.20- 



TfiTAL ASSETS 



1. 79,989.94 
mtmtttut : 



$ 79,989.94- 
#*»**#»*»•»## 



